in den untenstehenden Code lese ich ein diagramm in meine Userform.
nun zu meiner Frage:
ich möchte den Wert im "ChartObjects(1)" durch optionsbutten ändern z.b.
Obtionsbutton1 =ChartObjects(1)
Obtionsbutton2 =ChartObjects(2)
... ......ton9
wie muß ich den nachfolgenden Code Ändern das dies möglich ist, oder ist es überhautmöglich?
für eure hilfe wäre ich sehr dankbar!!!
gruß
erich
Dim Dateiname
Dim Diagramm
Private Sub UserForm_Activate()
Sheets("Auswertung Qualität").Activate
Set Diagramm = Sheets("Auswertung Qualität").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)
On Error Resume Next
Kill Dateiname
End Sub