ich habe folgendes Problem, ich würde/möchte gerne alle Shapes in einem Visiozeichenblatt Mitzuhilfenhame von VBA gleichzeitig auf das selbe Format bringen. Eigentlich sind nur Linien auf dem Zeichenblatt vorhanden. Diese Linien sollen durch ein Button formatiert werden. Hierbei sollen die Lininenanfangspunkte kreisförmig und Linienendpunkte quadratisch formatiert werden. Weiterhin sollen alle Shapes die Farbe blau erhalten. Ist zwar kein Excel Problem, hoffe trotzdem auf hilfreiche Antworten.
Habe selbst rumgebastelt unter Zuhilfenahme des Makrorecorders aber irgendwie kommt nix brauchbares raus.
Sub linie ()
dim shp as shape
for each shp in activedocument.pages("Visualisierung")
if typeof shp is Visio.shape then
shp.cellssrc(vissectionobject, visrowline, vislinecolor).formulaU="themeguard(rgb(0,32,96))"
shp.cellssrc(vissectionobject, visrowline, vislinearrowsize).formulaU="4"
shp.cellssrc(vissectionobject, visrowline, vislinebeginarrow).formulaU="20"
shp.cellssrc(vissectionobject, visrowline, vislineaendarrow).formulaU="21"
shp.cellssrc(vissectionobject, visrowline, vislinebeginarrowsize).formulaU="4"
end if
next shp
End Sub
Freundliche GrüßeVivek