Microsoft Excel

Herbers Excel/VBA-Archiv

Grafik anzeigen - evtl. Reihenfolge ändern?

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




GrußformelBeverly's Excel - Inn


  

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?"