ich möchte in einem XY-Punktdiagramm den Datenpunkten eine Grafik, z.B.
Icon aus Symbolleiste, zuweisen. Zunächst mal allen Punkten dieselbe Grafik.
Ist das irgendwie mit VBA möglich? Von Hand finde ich da keine Möglichkeit.
Grüße Gunther
Sub Grafik_in_Datenpunkt()
Dim ch As Object, sc As Series, pt As Point, cbb As CommandBarButton, cb As CommandBar
On Error Resume Next
CommandBars("xxx123xxx").Delete
On Error GoTo 0
Set cb = CommandBars.Add("xxx123xxx")
Set cbb = cb.Controls.Add(1)
cbb.FaceId = 263
Set ch = Sheets("Tabelle1").ChartObjects(1).Chart
Set sc = ch.SeriesCollection(1)
cbb.CopyFace
For Each pt In sc.Points
pt.Paste
Next
On Error Resume Next
CommandBars("xxx123xxx").Delete
End Sub