Hallo zusammen,
ich habe auf einer PP-Folie zwei Objekte (Diagramm und Tabelle) eingefügt. Das Diagramm bzw dasdahinterliegende Excel-Sheet spreche ich wie folgt an:
Dim sh As Shape
Dim xwb As Excel.Workbook
Dim xws As Excel.Worksheet
For Each sh In Slide64.Shapes
If sh.Type = msoEmbeddedOLEObject Then Exit For
Next
Set xwb = sh.OLEFormat.Object
Set xws = xwb.Worksheets(1)
xws.Range("A2").Value = "Test 1"
xws.Range("A3").Value = "Test 2"
Da durch die Abfrage so jedoch nur das Diagramm gefunden wird, weiß ich nicht, wie ich die Tabelle ansprechen soll.
Für eure Hilfe wäre ich sehr dankbar.
Gruß
|