Grausamer Recorder-Code
16.12.2005 11:20:23
Klaus
Ich habe mittels Rekorder und c&p einen grausamen Code fabriziert. Hintergrund: Mittels Checkboxen soll der User verschiedene Formen einer Vorlage ausdrucken oder auch nicht. Codeauszug:
Private Sub CheckBox10_Click()
If CheckBox10 Then
ActiveSheet.Shapes("AutoForm 10").Select
With Selection
.Placement = xlMoveAndSize
.PrintObject = True
End With
Else
ActiveSheet.Shapes("AutoForm 10").Select
With Selection
.Placement = xlMoveAndSize
.PrintObject = False
End With
End If
End Sub
Private Sub CheckBox11_Click()
If CheckBox2 Then
ActiveSheet.Shapes("AutoForm 11").Select
With Selection
.Placement = xlMoveAndSize
.PrintObject = True
End With
Else
ActiveSheet.Shapes("AutoForm 11").Select
With Selection
.Placement = xlMoveAndSize
.PrintObject = False
End With
End If
End Sub
Private Sub CheckBox12_Click()
End Sub
und so weiter.
Soweit funktioniert es auch, aber ich muss das noch für fast 100 Objekte fortsezten :( und auch jedes mal von Hand die AutoForm und die Checkbox umbenennen :( :(
Hat jemand einen guten Tip, wie ich mir das einfacher gestalten kann?
Dank und Gruß,
Klaus M.vdT.