Dann über eine UserForm!
17.02.2009 14:25:00
Renee
Hi Kerbi,
Ok, ich bin davon ausgegangen, dass du nur testen willst ob ein Diagramm angewählt ist oder nicht.
Anscheinend willst du aber eine Ganze Auswahl-Steuerung mit allem PiPaPo.
Erstelle im VBE eine Userform von diesem Aussehen:
d.h. 1 Label (Bezeichnungsfeld), 1 Combobox, 2 Buttons
Füge diesen Code in die Userform ein:
Option Explicit
Private Sub CommandButton1_Click()
ActiveSheet.ChartObjects(ComboBox1.Value).Select
Me.Hide
End Sub
Private Sub CommandButton2_Click()
Me.Hide
End Sub
Private Sub UserForm_Activate()
Dim chrt As ChartObject
ComboBox1.Clear
If ActiveSheet.ChartObjects.Count = 0 Then
Label1.Caption = "Leider sind keine Charts vorhanden!"
ComboBox1.Visible = False
CommandButton1.Visible = False
Else
Label1.Caption = "Wählen Sie ein Chart aus:"
For Each chrt In ActiveSheet.ChartObjects
ComboBox1.AddItem chrt.Name
Next chrt
ComboBox1.ListIndex = 0
CommandButton1.Visible = True
End If
End Sub
Rufe die Userform über eine Schaltfläche oder ein Makro auf:
Sub X()
UserForm1.Show
End Sub
Alles klar ?
GreetZ Renée