Gibt es die Möglichkeit, dass Excel immer (also Standardmäßig) die folgende Eigenschaft aktiviert:
--- Diagrammfläche formatieren
--- Eigenschaften
--- Von Zellposition und -größe unabhängig
Vielen Dank und Grüße
Dominik
Private Sub diagram_Change(ByVal Target As Excel.Range) ?
With Sheets("Tabelle1").DrawingObjects("Diagramm 2")
.Placement = xlFreeFloating
.PrintObject = True
End With
Sheets("Tabelle1").DrawingObjects("Diagramm 2").Locked = True
End Sub
Sub test()
Dim str_dia As String, str_sheet As String, str_diagramm As String
str_dia = ActiveChart.Name
str_sheet = Mid(str_dia, 1, Application.WorksheetFunction.Find(" ", str_dia) - 1)
str_diagramm = Mid(str_dia, Application.WorksheetFunction.Find(" ", str_dia) + 1, Len(str_dia))
Sheets(str_sheet).DrawingObjects(str_diagramm).Placement = xlFreeFloating
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen