AW: versch Diagramm in Userform über ComboBox anzeigen
06.07.2016 16:55:29
Bastian
Hey guck ma so ?
Private Sub ComboBox1_Change()
With UserForm5.Image1
.PictureSizeMode = fmPictureSizeModeZoom
.Picture = LoadPicture("C:\test\chart" & ComboBox1.ListIndex + 1 & ".gif")
End With
End Sub
Private Sub UserForm_Click()
End Sub
Private Sub UserForm_Initialize()
Dim i As Long
Dim x As Long
Dim wsD As Worksheet
Set wsD = Sheets("Diagramme")
For i = 1 To wsD.ChartObjects.Count
Worksheets("Diagramme").ChartObjects("Diagramm " & i).Chart.Export Filename:="C:\test\chart" & _
_
i & ".gif", FilterName:="Gif"
Next
For x = 1 To wsD.ChartObjects.Count
ComboBox1.AddItem wsD.ChartObjects(x).Chart.ChartTitle.Characters.Text
Next x
Label2 = Date
Label4 = (Date - DateSerial(Year(Date + (8 - Weekday(Date)) Mod 7 - 3), 1, 1) - 3 + (Weekday( _
DateSerial(Year(Date + (8 - Weekday(Date)) Mod 7 - 3), 1, 1)) + 1) Mod 7) \ 7 + 1
Label5 = ActiveSheet.Range("B2").Value
End Sub