Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

VBA: Excel Bereich als Bild nach Powerpoint ?

735 views
Skip to first unread message

Thomas Schulze

unread,
Jan 20, 2003, 10:34:21 PM1/20/03
to
Hallo zusammen,

ich versuche aus einer Excel Datei "A.xls" einen Bereich mit dem Namen
"Bereich"
zu kopieren und dann in eine Powerpoint Präsentation "B.ppt" auf die Folie
No. 3 als Bild einzufügen.

Ich hab schon einige NGs abgeklappert und auch die einschlägigen Excel VBA
Bücher durchforstet ... leider nur spärlich bzw. gar nicht zu finden.

Hat jemand dazu eine Tipp wie man das in Excel VBA realisieren könnte ?

Danke & Gruss
Thomas Schulze


Monika Weber

unread,
Jan 20, 2003, 1:58:53 PM1/20/03
to
Hallo Thomas

> ich versuche aus einer Excel Datei "A.xls" einen Bereich mit dem Namen
> "Bereich"
> zu kopieren und dann in eine Powerpoint Präsentation "B.ppt" auf die Folie
> No. 3 als Bild einzufügen.

Hier ein Lösungsansatz:

Sub PPT()
Dim objPPT As Object
Set objPPT = CreateObject("Powerpoint.application")

Sheets(1).Range("Bereich").CopyPicture _
Appearance:=xlScreen, _
Format:=xlPicture
With objPPT
.Activate
.Presentations.Open "C:\B.ppt"
.ActivePresentation.slides(3).Shapes.Paste
End With
Set objPPT = Nothing
End Sub

--
Ich hoffe, dass Dir das weiterhilft.

"Es liebs Grüessli" aus der Schweiz
Monika Weber [Microsoft MVP für Excel]
http://www.jumper.ch / http://excel.codebooks.de

Monika Weber

unread,
Jan 20, 2003, 2:09:41 PM1/20/03
to
Hallo Thomas

... hab ich da eine Frage aus der Zukunft beantwortet? ;-))

Stimmt möglicherweise Dein Systemdatum nicht?
Heute ist erst der 20. Januar ... Du hast aber schon 21.

--


"Es liebs Grüessli" aus der Schweiz
Monika Weber [Microsoft MVP für Excel]
http://www.jumper.ch / http://excel.codebooks.de

"Monika Weber" <monika...@mvps.org> schrieb im Newsbeitrag
news:eVObwXLwCHA.2124@TK2MSFTNGP11...

Thomas Schulze

unread,
Jan 21, 2003, 2:31:44 PM1/21/03
to
Hallo Monika,

Danke für die schnelle Hilfe .. das Teil funktioniert prima !
Nur noch ein Frage dazu .. gibts eine Möglichkeit beim Pasten
auch eine Position im Powerpoint Slide anzugeben ?

Sowas wie ...
ActivePresentation.slides(3).Shapes.Paste XPos:= .., YPos:= ..
oder so

Vielen Dank & Gruss
Thomas
By the way: Wahrhaftig .. mein Systemdatum war falsch !

"Monika Weber" <monika...@mvps.org> schrieb im Newsbeitrag

news:#w$qydLwCHA.2668@TK2MSFTNGP12...

Monika Weber

unread,
Jan 20, 2003, 2:42:59 PM1/20/03
to
Hallo Thomas

> Danke für die schnelle Hilfe .. das Teil funktioniert prima !
> Nur noch ein Frage dazu .. gibts eine Möglichkeit beim Pasten
> auch eine Position im Powerpoint Slide anzugeben ?

Versuch es so:

Sub ExportToPowerPoint()
Dim objPPT As Object
Set objPPT = CreateObject("Powerpoint.Application")

Sheets(1).Range("Bereich").CopyPicture _
Appearance:=xlScreen, _
Format:=xlPicture

With objPPT
.Activate
.Presentations.Open "C:\B.ppt"

.ActivePresentation.Slides(3).Shapes.Paste
With .ActivePresentation.Slides(3).Shapes(1)
.IncrementLeft 300
.IncrementTop 200
End With
End With

Set objPPT = Nothing
End Sub

Falls mehrere Shapes auf der Folie 3 sind, dann musst Du u.U. den
Index von "Shapes(1)" anpassen.

> By the way: Wahrhaftig .. mein Systemdatum war falsch !

Die Zeit scheint nun zu stimmen, aber das Datum ist immer noch der
21.01.2003 :-)

Thomas Schulze

unread,
Jan 21, 2003, 3:47:39 AM1/21/03
to
Hallo Monika,

funktioniert super ! Vielen Dank !!!

Gruss
Thomas

"Monika Weber" <monika...@mvps.org> wrote in message
news:O3ffZwLwCHA.1252@TK2MSFTNGP09...

Monika Weber

unread,
Jan 21, 2003, 1:33:27 PM1/21/03
to
Hallo Thomas

Bitte gern geschehen :-))
Danke fürs Feedback.

--


"Es liebs Grüessli" aus der Schweiz
Monika Weber [Microsoft MVP für Excel]
http://www.jumper.ch / http://excel.codebooks.de


"Thomas Schulze" <thomas_...@surfeu.de> schrieb im Newsbeitrag
news:uAN1VmSwCHA.968@TK2MSFTNGP12...

0 new messages