AW: Option Explicit
17.03.2005 08:26:00
steve
Mit der Option Explicit-Anweisung kann man ausschließen, daß meine Module Variablen enthalten, die nicht deklariert wurden, oder daß durch Tippfehler versehentlich neue Variablen erstellt werden.
Mein Code sieht folgender maßen aus:
Option Explicit
Dim oldW As Double, oldH As Double
Private Sub CommandButton6_Click()
ScrollBar1 = 100
End Sub
Private Sub ScrollBar1_Change()
Me.Zoom = ScrollBar1
Label1 = "Zoom " & ScrollBar1 & "%"
Me.Width = oldW * ScrollBar1 / 100
Me.Height = oldH * ScrollBar1 / 100
End Sub
Private Sub UserForm_Activate()
oldW = Me.Width
oldH = Me.Height
End Sub
Private Sub CommandButton1_Click()
Gesellschaftsbewertung.PrintForm
End Sub
Private Sub CommandButton2_Click()
Gesellschaft.Show
Unload Me
End Sub
Private Sub CommandButton3_Click()
Set Diagramm = Sheets("Gesellschaftsauswertung").ChartObjects(1).Chart
Diagramm.Parent.Width = Image1.Width
Diagramm.Parent.Height = Image1.Height
Dateiname = ThisWorkbook.Path & Application.PathSeparator & "diagramm.gif"
Diagramm.Export Filename:=Dateiname, FilterName:="GIF"
Image1.Picture = LoadPicture(Dateiname)
End Sub
Und ab Commandbutto3 fängt er an rumzuspinnen, weil ich anscheinend Diagramm nicht definiert habe. Ich benötige allerdings Option Explicit für den Teil bis COmmandButton1. Denn hier habe ich eine Zoomleiste.
Ich weiß nicht so recht weiter.