Ich versuche, die Schriftgröße des Texts in Shapes in Visio von Daten zu ändern, die aus einem Excel-Dokument mit Visual Basic exportiert werden. Ich brauche dort unterschiedliche Schriftgrößen für verschiedene Formen. Gibt es eine Shape.FontSize = X-Methode oder etwas ähnliches in VBA? Ich bin neu in Visual Basic so Entschuldigungen, wenn dies eine Anfängerfrage ist. Vielen Dank für Ihre Hilfe! Ändern der Schriftgröße in Visio durch Visual Basic
In MS Visio Sie Eigenschaften in ShapeSheet™ Umgebung für die Änderung Schriftart ändern können Parameter
Dim shp As Shape
Set shp = ActivePage.Shapes.ItemFromID(4)
shp.Cells("Char.Size").FormulaU = "12 pt"
ich eine andere Art und Weise Schriftgröße ändern finden
Dim shp As Shape
Set shp = ActivePage.Shapes.ItemFromID(1)
With shp.Characters
' set font size - 6 pt
.CharProps(visCharacterSize) = 6
' set font bold, italic and underline
.CharProps(visCharacterStyle) = visBold + visItalic + visUnderLine
End With
Brilliant, danke! Weißt du, ob es eine ähnliche Möglichkeit gibt, der Schriftart fett oder kursiv hinzuzufügen? – Cormac