ich habe folgenden Code für die Festlegung der Position und Größe eines Diagramms auf einem
Excel Blatt.
Sub Positionieren()
Dim lngLeft&, lngTop&, lngWidth&, lngHeight&
ActiveSheet.ChartObjects(1).Top = Range("B12").Top 'Zelle B12 links
ActiveSheet.ChartObjects(1).Left = Range("B12").Left 'Zelle B12 oben
ActiveSheet.ChartObjects(1).Width = 1044 'Breite in Punkte
ActiveSheet.ChartObjects(1).Height = 617 'Höhe in Punkte
End Sub
Ich möchte, dass die Angabe der Positionszelle B2 aus z.B. der Zelle AW12 übernommen wird ( ich schreibe in die Zelle AW12 die Zelladresse B2 und der Code verwendet B2 für die Position ).Weiterhin schreibe ich in die Zelle AW 13 den Wert 1044 und der Code verwendet diesen Wert für die Breite.
Für die Höhe verwende ich die Eingabezelle AW14.
Ich habe bisher den v.g. Code nicht anpassen können.
Wer kann mir helfen?
Schöne Grüße Go