Visio VBA - Adding Shape Data Properties
i'm creating and testing a UserForm where user can add the shapes and add the predefined Shape Data Value to the Shape Data. The Shape Data name is "Element" as you can see the image below.
Dim vsoRound As Visio.Shape
Dim cell As Visio.cell
If (CheckBox1.Value) Then
Application.ActiveWindow.Page.Drop Application.Documents.Item("MS Icons.VSSX").Masters.ItemU("Round"), 5, 5
Set vsoRound = Application.ActiveWindow.Page.Shapes.ItemU("Round")
vsoRound.CellsU("ELement").FormulaU = """Fan"""
The value for this Shape Data is Fan. However it break at the last line of the code.
**Update: I added the error message.
Solution
As workaround you can delete unused master Square in Visio Shape Test.vssm before drop master with same name from stencil MS Icons.vssx via your code!
- What are the benefits and risks of using the StrPtr function in VBA?
- Word VBA: Search for 13-digit UNIX Timestamp and Add Conventional Time Format After Timestamp - Loop Isn't Working As Intended
- How to read the cell value in a table control?
- How to get only visible category labels of excel chart via vba code
- Get length of array?
- Making three already buttons in my worksheet more efficient to work it - VBA
- Why do I need a space before the '^' operator in VBA for Excel 2013 or it will produce a compile time error "Expected list or separator"
- How to fix listbox List vs RowSource limitation
- Download Google Drive File from Excel Sheet using VBA
- Excel VBA Insert Column when Value Changes and add formula
- How to use left on a range in VBA?
- Capping Consecutive delimiters during text file importing
- How can I resolve error: object '_global' failed in MS Word Macro?
- Problem with Date format in Word Mail Merge for DataFields component - VBA Code
- Calling a userform and returning a value
- type mismatch in for cycle
- Add newline to VBA or Visual Basic 6
- Code help for Excel VBA for-loop which checks if multiple ListBoxes have values?
- Sending email from other account
- Strange issue with str function versus Str
- How do I get a range's address including the worksheet name, but not the workbook name, in Excel VBA?
- Capturing actual on behalf of email id from outlook mail instead of the sender id
- Declare array of Integers
- Refreshing Conditional Formatting in Sheet Every 20 Seconds
- PivotTable Refresh error in the same sheet
- How to insert content from a different file at the end of a particular heading anywhere in the document? vba
- Can I guarantee the Image Formula Function is finished before printing the result?
- How can i transfer Visible Filtered Data from a table into a multi dimensional array?
- Loop through each unique date in array based on criteria
- How can I use an if statement to turn autofilter off if it is already on otherwise leave off