Visio 1U Patch Panel

AppData/Images/Full/2352.jpg' alt='Visio 1U Patch Panel' title='Visio 1U Patch Panel' />Panduit Patch Panels Free Visio Stencils Shapes Templates Add ons. Visimation Shapes are Visio stencils of manufactured equipment for use with Microsoft Visio. These are the highest quality Visio shapes with photo accurate graphics, proper assembly behavior, comprehensive Shape Data, and other features to ease the drawing process. These graphics will help you create impressive and compelling drawings for marketing, sales, proposals, design, installation, and network documentation. If you use other programs like Microsoft Power. Visio 1U Patch Panel' title='Visio 1U Patch Panel' />Addin software for Visio. Zone Enclosures, WyrGrid, FiberRunner, Cisco, IBM, Stulz, Patch Panels, and Zone Cabling. Note 64bit Visio is now supported Find great deals on eBay for visio patch panel. Shop with confidence. GigaSPEED X10D XL M2100 UUTP Modular Panel 1U, 24 port. M210024 1U Modular Patch Panel. Visio Stencil. Visio Stencils. BIM Objects Connected Home Network Solutions BIM Library. Angled 110 QuickPort Patch Panels 8in VersiDuct Vertical Cable Managers. Point, Microsoft Word, Adobe Illustrator, Corel. Draw, etc. and would like to use the same high quality vector graphics as our Visio shapes, try our Art collection. Follow bVisual for people interested in Microsoft Visio on WordPress. Top Posts. Linking Visio WBS Modeler Diagrams to Project A Patch Panel that can be 1U too. U Patch Panel Microsoft Visio 2007 Professional and 2010 Professional and Premium includes the Network Rack Diagram template, which opens the Rack. Hello, I am having an issue in Visio 2010 Professional it seems to be the same issue as this http I have looked at the data. Browse ShapeSource for free Visio stencils, shapes, and templates. Browse Panduit Patch Panels Visio stencils, shapes, and diagrams. A Patch Panel that can be 1. U too b. Visual. Microsoft Visio 2. Professional and 2. Professional and Premium includes the Network Rack Diagram template, which opens the Rack mounted equipment stencil. This stencil includes the Patch Panel master which can be stretched from 2. U to 2. 5U high. However, I have often required a 1. U patch Panel, so I decided to look into the Microsoft shape to see if it could be modified to allow it to be reduced to 1. U without looking ridiculous. I opened up the Shape. Sheet of the Patch Panel master and found that the formula in the Prop. UCount. Value cell is imposing 2 as a minimum value with the BOUND function. I changed the formula to BOUND2,0,FALSE,1,2. UHeight to 1. U, but the 2. I actually wanted the number of ports to be halved to 1. I set about exploring the sub shapes in the master. I found that Sheet. Us. All of its sub shapes have a height formula referencing this height, so I decided to modify the Pin. Y formula to Sheet. Height0. 5IFSheet. Prop. UCount1,2,1 so that it would move the lower bank of ports up into the correct position if the Prop. UCount equals 1. Then it was just necessary to go through each of the sub shapes of Sheet. Geometry. X. No. Show formula to Sheet. Prop. UCount1 for each Geometry section which is in the upper half of the shape. At this point, I could see that I had to put this formula into 1. Therefore, I decided to write some VBA code to do this instead. This has the advantage that you can run the code on existing documents that already have the Patch panel master in it. In fact, the Patch panel master must be in the local document stencil for this code to work. Public. Sub Update. Patch. Panel. Master 2 Dim mst As Visio. Master 3 Dim mst. Copy As Visio. Master 4 Dim shp. Patch. Panel As Visio. Shape 5 Dim shp. Port. Group As Visio. Shape 6 Dim shp. Port. Graphics As Visio. Shape 7 Dim i As. Integer 8 Dim i. Sect As. Integer 9 Dim d. Height As. Double 1. For. Each mst In Visio. Active. Document. Masters 1. 2 If mst. Name Patch panelThen 1. Set mst. Copy mst. Open 1. 4 Set shp. Patch. Panel mst. Copy. Shapes1 1. For. Each shp. Port. Group In shp. Patch. Panel. Shapes 1. If shp. Port. Group. CellsHeight. Formula. U 1. Sheet. 5 User. One. UHeightThen 1. Port. Group. CellsPin. Y. Formula. U 1. Sheet. 5 Height. IFSheet. Prop. UCount1,2,1 2. For. Each shp. Port. Graphics In shp. Port. Group. Shapes 2. 1 d. Height shp. Port. Graphics. CellsHeight. Result. IU 2. 2 For i 0 To shp. Port. Graphics. Geometry. Count 1 2. 3 i. Sect Visio. vis. Section. First. Component i 2. If shp. Port. Graphics. Cells. SRCi. Sect, 2. Visio. vis. Row. Component 1, 2. Visio. vis. Y. Result. IU d. Height 0. Then 2. Port. Graphics. Cells. SRCi. Sect, 0, 2. Visio. vis. Comp. No. Show. Formula 2. Sheet. 5 Prop. UCount1 3. End. If 3. 1 Next i 3. Next shp. Port. Graphics 3. Exit. For 3. 4 End. If 3. 5 Next shp. Port. Group 3. 6 mst. Copy. Close 3. 7 mst. Left For Dead Demo there. Match. By. Name True 3. Exit. For 3. 9 End. If 4. 0 Next mst 4. End. Sub. And there you have it the Patch panel can now be reduced to 1 U and it looks OK If you cannot be bothered to run the code, you can download the updated Patch panel and the code from here   http cid 3. BlogsPatch. Panel.