ich bin momentan dabei ein Makro zu schreiben um automatisch aus excel eine ppt. zu erstellen. Das läuft auch alles. Leider wird das Format nicht mit übertragen. Wie kann ich das bei folgendem Code lösen? Vielen Dank! Gruß Jens
For x = 0 To 4
pptPres.Slides(27).Shapes("Tabelle 4").Table.Cell(x + 1, 1).Shape.TextFrame.TextRange.Text = Worksheets("element (1)").Range("p_" & x + 1).Value
next x