Herbers Excel/VBA-Archiv

Grafik anzeigen - evtl. Reihenfolge ändern?

• Grafik anzeigen - evtl. Reihenfolge ändern? von Jonathan vom 18.06.2008 14:55:04
• AW: Grafik anzeigen - evtl. Reihenfolge ändern? - von Beverly am 18.06.2008 15:18:30
  • AW: Grafik anzeigen - evtl. Reihenfolge ändern? - von Jonathan am 18.06.2008 16:15:17

Betrifft: Grafik anzeigen - evtl. Reihenfolge ändern? von: Jonathan
Geschrieben am: 18.06.2008 14:55:04

Hey,

in dem ersten Sheet habe ich eine große Grafik hinterlegt (füllt das ganze Sheet), nun möchte ich beim Starten per Zufallsprinzip verschiedene Grafiken anzeigen.

Hatte mir überlegt, dass ich alle Grafiken einfüge, übereinander lege und einfach per Zufall die Reihenfolge der Grafiken änder. Diesen Vorgang wollte ich per Rekorder aufzeichnen, leider macht er das nicht.

Habt Ihr hier ein Tipp, wie ich das anstellen kann, oder eine bessere Idee?

Danke!

Jonathan

Betrifft: AW: Grafik anzeigen - evtl. Reihenfolge ändern? von: Beverly
Geschrieben am: 18.06.2008 15:18:30

Hi Jonathan,

eine Möglichkeit:

Private Sub Workbook_Open()
    Dim inZahl As Integer
    With Worksheets("Tabelle1")
        For inZahl = 1 To .Pictures.Count
            .Pictures(inZahl).Visible = False
        Next inZahl
        .Pictures(Int((Worksheets("Tabelle1").Pictures.Count * Rnd) + 1)).Visible = True
    End With
End Sub

---

Betrifft: AW: Grafik anzeigen - evtl. Reihenfolge ändern? von: Jonathan
Geschrieben am: 18.06.2008 16:15:17

Das ist ja genial!!

Vielen Dank!

Beiträge aus den Excel-Beispielen zum Thema "Grafik anzeigen - evtl. Reihenfolge ändern?"