Gruppe
Grafik
Problem
Wie kann ich mehrere, sich in einem Arbeitsblatt befindende Grafiken unmittelbar untereinander anordnen?
ClassModule: Tabelle1
Private Sub CommandButton1_Click()
Call AnOrdnen
End Sub
StandardModule: basMain
Sub AnOrdnen()
Dim shp As Shape
Dim x As Double, y As Double
x = 5: y = 0
For Each shp In Worksheets("Tabelle1").Shapes
If shp.Type = msoPicture Then
shp.Left = x
shp.Top = y
End If
y = shp.Top + shp.Height
Next shp
End Sub