Lokal-Fenster!

Erste Anlaufstelle, wenn ich Informationen über meine Variablen haben möchte ist das "Lokal-Fenster". Erst die Subs "Test()" und "Test_1()" rennen lassen, dann Sub "Test_2()" (VBA-Editor - Ansicht - Lokal-Fenster).

Lokal-Fenster...

Code:
Option Explicit
Public Sub Test()
Dim shpObject As Shape
Set shpObject = ActiveSheet.Shapes.AddShape( _
msoShapeRectangle, 20, 20, 20, 20)
shpObject.Line.ForeColor.RGB = RGB(255, 0, 0)
Set shpObject = Nothing
End Sub
Public Sub Test_1()
Dim shpObject As Shape
Set shpObject = ActiveSheet.Shapes.AddShape( _
msoShapeOval, 20, 20, 30, 40)
shpObject.Line.ForeColor.RGB = RGB(255, 0, 0)
Set shpObject = Nothing
End Sub
Public Sub Test_2()
Dim shpObject As Shape
For Each shpObject In ActiveSheet.Shapes
Stop
Next shpObject
End Sub

Kommentare

Beliebte Posts aus diesem Blog

Formeln - auch Array - per VBA eintragen...

Alle Dateien eines Ordners - Optional mit Unterordner

Excel -> Word in Textmarken (Bookmarks)...