VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Grafiken im Tabellenblatt ordnen

Gruppe

Grafik

Bereich

Ansicht

Thema

Grafiken im Tabellenblatt ordnen

Problem

Wie kann ich mehrere, sich in einem Arbeitsblatt befindende Grafiken unmittelbar untereinander anordnen?

Lösung

Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.




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

    


Beiträge aus dem Excel-Forum zu den Themen Grafik und Ansicht