Herbers Excel-Forum - das Archiv

Grafik

Bild

Betrifft: Grafik
von: Petra

Geschrieben am: 04.04.2008 13:41:08

Schönen Freitag-Nachmittag allerseits.

Sub test()
Dim i%
For i = 1 To 100
ActiveSheet.Cells(3, 2) = 100 - i
'ActiveSheet.ChartObjects("Diagramm 10").Activate
'   Sleep 200
Next i
End Sub


Mit diesem kleinen Makro möchte ich in einer Grafik einen Balken steuern (die Größe verändern). Mit Einzelschritt (F8) funktionierts, ohne Einzelschritt nicht!
Die Sleep oder auch Wait Funktion haben keine Besserung gebracht.
Weiß jemand einen Tipp für mich?
Liebe Grüße Petra

Bild

Betrifft: AW: Grafik
von: Beverly

Geschrieben am: 04.04.2008 13:56:52
Hi Petra,

Sub test()
Dim i%
For i = 100 To 1 Step -1
ActiveSheet.Cells(3, 2) = i
Application.Wait Now + TimeValue("00:00:01")
Next i
End Sub




Bild

Betrifft: AW: Grafik
von: Renee

Geschrieben am: 04.04.2008 13:58:48
Hi Petra,
Vielleicht besser ?

Private Declare Sub Sleep Lib "Kernel32" (ByVal dwMilliseconds As Long)
Sub test()
Dim i%
For i = 1 To 100
ActiveSheet.Cells(11, 3) = 100 - i
Sleep 200
Application.ScreenUpdating = True
Next i
End Sub


GreetZ Renée

Bild

Betrifft: AW: Grafik
von: Tipp

Geschrieben am: 04.04.2008 14:03:00
Hi Petra
das Zauberwort heißt DoEvents,

Sub test()
Dim i%
For i = 1 To 100
ActiveSheet.Cells(3, 2) = 100 - i
 DoEvents
Next i
End Sub


Klappts??
Grüße vom Tipp

Bild

Betrifft: AW: Grafik
von: Petra
Geschrieben am: 04.04.2008 14:08:20
Hallo Tipp
Dein Tipp war goldwert!
Auch Danke an Beverly und Renee.
Schönen Nachmittag noch Petra

 Bild
Excel-Beispiele zum Thema "Grafik"
Grafik in Kopfzeile Export von Diagrammen im Grafikformat
Grafiken im Tabellenblatt ordnen Grafiken an eine Seite anpassen
Grafik einfügen, wenn Wert in A1 unter eine Grenze sinkt Grafikprogramm aufrufen und Bild laden
Grafik in Abhängigkeit einer Zelleingabe einfügen Grafik nach Doppelklick laden
Grafiken aus ausgeblendeten Blättern einblenden Grafik nach Eingabe des Dateinamens einfügen