HERBERS Excel-Forum - die Beispiele

Thema: Grafiken im Tabellenblatt ordnen

Home

Gruppe

Grafik

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

Formular Steuerelement bei "geschützer Ansicht" VBA und geschützte Ansicht
Hilfe Laufzeitfehler wegen benutzerdef. Ansicht Jahresgrafik
Grafik - Linie nach unten, Kriterien links Grafik auf Position bringen
Viele Grafiken mit gleicher Größe einfügen Excel Grafiken nur schwarz/weiss
Grafik drucken Grafik nach Change in Exceltabelle laden
Bereich als Grafik speichern Grafiken kopieren
OT: Exploreransicht Text und Grafik in Fusszeile
Grafik in der Kopfzeile - OHNE PFADANGABE Grafik, Datenbeschriftung
Linie in einer Grafik ansprechen Grafik positionieren
Linien-Säulen auf zwei Achsen - Grafik Grafik in Zelle einfügen, wie?
mehrere Grafiken aus derselben Pivot Symbolleistenansicht beim Userformaufruf
Grafik anzeigen - evtl. Reihenfolge ändern? Grafikobjekt nach Zelleingabe anpassen
Dateiansicht Grafik in Zellen - Sparklines
Grafik Option Explicit zusweisen Benutzerdefinierte Ansicht nach Blattschutz
Grafik bei Nullen nicht weiterführen Benutzerdefinierte Ansichten trotz Blattschutz
Makro bei Rechtsklick auf Grafik Kontextmenü Grafik
Grafikgröße nach Hyperlink festlegen Grafik Drehmoment Leistung
Grafiken mit Säuledarstellung Dynamische Grafik/Diagramm
Bildschirmansicht optimieren Beschriftung bei Bubble-Grafik
gestapelte Säulengrafik Dynamischer Datenbereich bei Grafiken
Grafik Schwellenwert in Excel-Grafik einfügen?
wechselnde grafiken abhängig von wert einblenden Grafik-Spezial
Vorschaugrafik Grafikformat
Grafik in Tabelle, abhängig von Zellinhalt Grafikprogramm über Excel legen
Grafik in XLS-Kopfzeile im PPT darstellen Ansicht wie in Excel XP