Microsoft Office Tutorials and References
In Depth Information
7.5.6 Alle Formen
Zur Erläuterung:
Die Koordinaten des ersten Knotens, der zur Erzeugung der Freiform
benötigt wird, stehen in der ersten Zeile.
Die Koordinaten der weiteren Knoten, die von der Methode Add-
Nodes() genutzt werden, stehen in den Zeilen darunter. Als Verbin-
dung wird jeweils der Typ Linie festgelegt.
AddNodes()
7.5.6
Alle Formen
Zur besseren Übersicht werden in diesem Abschnitt alle verschiedenen
Formen von Shapes mithilfe des nachfolgenden VBA-Programms darge-
stellt:
Alle Shapes
Sub AlleFormen()
Dim sh As Shape
Dim i As Integer, lf As Integer, tp As Integer
' Tabellenblatt auswählen
ThisWorkbook.Worksheets("Tabelle4").Activate
' Kein Gitternetz
ActiveWindow.DisplayGridlines = False
' Leeren
For i = ActiveSheet.Shapes().Count To 1 Step -1
ActiveSheet.Shapes(i).Delete
Next i
' Startwerte
lf=5
tp=5
' Alle verschiedenen Formen
Fori=1To137
Set sh = ActiveSheet.Shapes(). _
AddShape(i, lf, tp, 30, 30)
' Formatieren
sh.Line.Weight = 1
sh.Line.ForeColor.RGB = RGB(0, 0, 0)
sh.Fill.ForeColor.RGB = RGB(255, 255, 255)
With sh.TextFrame.Characters
.Font.Color = vbBlack
Search JabSto ::




Custom Search