Kopieren in PPT 2003 UND 2007

12/08/2008 - 14:57 von eLiz | Report spam
Hallo NewsGroup,

ich habe ein Makro geschrieben, dass alle Zeichenblàtter einer Datei in eine
Powerpoint Pràsentation kopiert. (ein Zeichenblatt ist eine Folie).
Allerdings sollte dies sowohl für Powerpoint 2003 als auch 2007
funktiontionieren. Um die Zeichenblàtter einzufügen verwende ich die
PasteSpecial methode, da vorher das Format angegeben werden kann, als das es
eingefügt wird. Dazu hab ich den verweis auf die Powerpoint-Bibliothek
eingefügt - dann funktioniert es mit Powerpoint 2003 wunderbar, allerdings
nicht mit 2007. Da bleibt er immer in der Schleife bei 2003 hàngen.

Der problematische Code-Teil schaut so aus:

If pptVersionNo = 12 Then ' Office 2007
newPresentation.Slides.Item(intCounter).Shapes.PasteSpecial
DataType:=format

Else ' Office 2003
Dim pptFormat As PpPasteDataType
pptFormat = format
newPresentation.Slides.Item(intCounter).Shapes.PasteSpecial
DataType:=pptFormat

End If

Hab ich da einen Denkfehler oder gibt es eine andere Möglichkeit, wie ich
ihm verschiedene Verweise (einmal 2003, einmal 2007) zuweisen kann?

Danke für die Hilfe,
Gruß eLiz
 

Lesen sie die antworten

#1 Senaj Lelic [DE MVP Visio]
18/08/2008 - 13:42 | Warnen spam
Hallo eLiz,

was für ein Fehler passier denn ?

Senaj Lelic
DE MVP Visio

"eLiz" schrieb im Newsbeitrag
news:
Hallo NewsGroup,

ich habe ein Makro geschrieben, dass alle Zeichenblàtter einer Datei in
eine
Powerpoint Pràsentation kopiert. (ein Zeichenblatt ist eine Folie).
Allerdings sollte dies sowohl für Powerpoint 2003 als auch 2007
funktiontionieren. Um die Zeichenblàtter einzufügen verwende ich die
PasteSpecial methode, da vorher das Format angegeben werden kann, als das
es
eingefügt wird. Dazu hab ich den verweis auf die Powerpoint-Bibliothek
eingefügt - dann funktioniert es mit Powerpoint 2003 wunderbar, allerdings
nicht mit 2007. Da bleibt er immer in der Schleife bei 2003 hàngen.

Der problematische Code-Teil schaut so aus:

If pptVersionNo = 12 Then ' Office 2007
newPresentation.Slides.Item(intCounter).Shapes.PasteSpecial
DataType:=format

Else ' Office 2003
Dim pptFormat As PpPasteDataType
pptFormat = format
newPresentation.Slides.Item(intCounter).Shapes.PasteSpecial
DataType:=pptFormat

End If

Hab ich da einen Denkfehler oder gibt es eine andere Möglichkeit, wie ich
ihm verschiedene Verweise (einmal 2003, einmal 2007) zuweisen kann?

Danke für die Hilfe,
Gruß eLiz

Ähnliche fragen