Visio Combo Boxes

Рет қаралды 14,607

Күн бұрын

How to set up and use a Combo Box in Visio.
This short Video uses a basic example to illustrate the principals involved in embedding and using ActiveX Combo Box Controls in a Visio diagram.
In the example, selecting an option from the combo box list changes the color of the large square object. Other, more practical uses are left to the viewer to determine.

Пікірлер: 8

@ThinkinInkan 7 жыл бұрын

I would like the combobox though to populate when a user form is opened in an existing diagram instead of starting blank or at a pre selected option. I would like to create if then statements based on which layers are visible.

@Irfanay99 5 жыл бұрын

How to do this with layers like you in other video, instead of using check box , i want to use combo box

@joaocampos3735 4 жыл бұрын

Hey! Mate, it's one year after but I actually faced the same problem but found a solution, I'll post it here in case you or someone else might need it: Making a ComboBox layer visible toggle- Follow the steps on this video to make the combobox and the add item part. After that add this as a macro : Sub LayerToggle(ItemNbr As Integer, OnOff As String) 'Enable diagram services Dim DiagramServices As Integer DiagramServices = ActiveDocument.DiagramServicesEnabled ActiveDocument.DiagramServicesEnabled = visServiceVersion140 + visServiceVersion150 Dim UndoScopeID1 As Long UndoScopeID1 = Application.BeginUndoScope("Layer Properties") Dim vsoLayer1 As Visio.Layer Set vsoLayer1 = Application.ActiveWindow.Page.Layers.Item(ItemNbr) vsoLayer1.CellsC(visLayerVisible).FormulaU = OnOff Application.EndUndoScope UndoScopeID1, True 'Restore diagram services ActiveDocument.DiagramServicesEnabled = DiagramServices End Sub Then, under ThisDocument add: Private Sub Box_Change() If Box.Value = "NAME OF THE ITEM ON LIST" Then Call LayerToggle(LAYERNUMBER, 1) Else Call LayerToggle(LAYERNUMBER, 0) End If If Box.Value = "NAME OF THE ITEM ON LIST" Then Call LayerToggle(LAYERNUMBER, 1) Else Call LayerToggle(LAYERNUMBER, 0) End If End Sub That should work!

@shahzadachoudhury8853 Жыл бұрын

can this be possible choosing a combo box to change the diagram and size of a shape e.g. I choose 50inch tv on the combo then it should give me a diagram on visio that visually represents a 50 inch or if I choose 24 inch it should shorten the TV diagram.

@10mins Жыл бұрын

Yes, it should be possible to change the scale of an object using an approach similar to the one I describe here. In my video, I show how I first create a macro, then tweak the code it generates. You could try that approach to use "Size & Position" to modify the size of the object. I just tested that by changing a square to be 2.5" and I've included the code it generated, below. You'll need to change the "2.5 in" string to be parameter driven, as I describe in the video. Another approach might be to use layers. Place your 50" TV on one layer, your 24" TV on another and toggle between them. Check out my other video "Visio Layers and Checkboxes". Here's the code my actions generated... Sub Macro1() 'Enable diagram services Dim DiagramServices As Integer DiagramServices = ActiveDocument.DiagramServicesEnabled ActiveDocument.DiagramServicesEnabled = visServiceVersion140 + visServiceVersion150 Dim UndoScopeID1 As Long UndoScopeID1 = Application.BeginUndoScope("Size & Position 2-D") Application.ActiveWindow.Page.Shapes.ItemFromID(1).CellsSRC(visSectionObject, visRowXFormOut, visXFormWidth).FormulaU = "2.5 in" Application.ActiveWindow.Page.Shapes.ItemFromID(1).CellsSRC(visSectionObject, visRowXFormOut, visXFormHeight).FormulaU = "2.5 in" Application.EndUndoScope UndoScopeID1, True 'Restore diagram services ActiveDocument.DiagramServicesEnabled = DiagramServices End Sub

@yacinegacem9923 7 жыл бұрын

Select case Combo1 case "RED": R=255 G=0 B=0 case "BLUE" R=0 G=0 B=255 case "GREEN" R=0 G=255 B=0 end select ColorBox R, G, B By the way it's generally a very bad idea to use ActiveX controls in a drawing. They lose their link to code when copied, thus are very hard to use in a generic way. Better write a modeless form and do the control from there. Also never ever hard code shape IDs. Use a strategy to identify the shape

@10mins 7 жыл бұрын

Thanks for the information.