Hallo @ all,
ich habe das problem das meine diagramme in den Tabellen sich immer verschieben.Nun habe ich im Net gestöbert, da es von MS nicht vorgesehen ist diese Dinger zu verankern.
Da bin ich auf folgende Idee gestoßen, bekomme sie aber leider nicht umgesetzt.
Da brauch ich mal wieder eure Hilfe.
Der Code:
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
DiagramminUserForm
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, _
ByVal Target As Range)
DiagramminUserForm
End Sub
Sub DiagramminUserForm()
If ActiveSheet.ChartObjects.Count > 0 Then
Pfad = ThisWorkbook.Path & "\bild.gif"
ActiveSheet.ChartObjects(1).Chart.Export Pfad
UserForm1.Picture = LoadPicture(Pfad)
UserForm1.PictureSizeMode = fmPictureSizeModeStretch
Kill Pfad
If Not UserForm1.Visible Then
UserForm1.startupposition = 0
UserForm1.Top = 20
UserForm1.Left = 600
UserForm1.Show vbModeless
End If
Else
UserForm1.Hide
End If
End Sub
nun weiß ich nur nicht wo das Ding rein muss, ins jeweilige TB?
Oder in die UserForm selbst?
Muss ich dafür noch etwas an der Userform machen, oder reicht es ne leere UF anzulegen und das Fenster auf die gewünschte Göße zu ziehen?
Und zu guter Letzt, Wie wird die UF aktiviert?
Danke für eure hilfe.
Gruß Benjamin