Frage von marc2108, 28

Wie kann ich in Visio im ShapeSheet vià VBA in der Section User-definied Cells zeilen mit Inhalt einfügen?

Hallo Ich habe vor ein dynamische Führungslinien zu machen, welche sich in ihrer Position von per ShapeSheet verändern lassen.

Folgendes Konstrukt: Ein Shape hat im ShapeSheet in der Section User-definied Cells pro Führungslinie die x und y Koordinaten gespeichert. Die Führungslinien beziehen ihre Position aus dieser Section.

Das heisst, ich muss in dieser Section viele Daten mühsam eingeben. Gibt es eine Möglichkeit mit VBA in dieser Section Datensätze anzulegen? So à la MeinShape.ShapeSheet.UserDefinedCells.create("Name","Value","Prompt")?

Antwort
von marc2108, 19

Dim pag As Page
Dim shp As Shape

Set pag = ActivePage
Set shp = pag.Shapes(1)
With shp
.AddNamedRow visSectionUser, "GuidLineSpaceX", visTagDefault
.CellsSRC(visSectionUser, visRowLast, visUserValue).FormulaU = "30"

.AddNamedRow visSectionUser, "GuidLineSpaceY", visTagDefault
.CellsSRC(visSectionUser, visRowLast, visUserValue).FormulaU = "15"

.AddNamedRow visSectionUser, "GuidLine1X", visTagDefault
.CellsSRC(visSectionUser, visRowLast, visUserValue).FormulaU = "GUARD(User.GuidLineSpaceX*1)"

.AddNamedRow visSectionUser, "GuidLine1Y", visTagDefault
.CellsSRC(visSectionUser, visRowLast, visUserValue).FormulaU = "GUARD(User.GuidLineSpaceY*1)"
End With

Keine passende Antwort gefunden?

Fragen Sie die Community

Weitere Fragen mit Antworten