Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss
Launch PowerPoint from Excell
3 views
Skip to first unread message
Scott Staples
Jul 27, 2000, 3:00:00 AM7/27/00
to
Does anyone know a way to launch Powerpoint and have it open a specific file
using VBA in Excel?
using VBA in Excel?
-Chief
Dave Martin
Jul 27, 2000, 3:00:00 AM7/27/00
to
Here's an example where I use an Excel 97 VBA macro to copy a chart from
Excel into a PowerPoint Slide. Hope you find it useful.
Sub Chart_Into_Ppt()
Set PPT = New PowerPoint.Application
With PPT
.Visible = True
.Activate
End With
My_Pres = ThisWorkbook.Path & "\spcorch.ppt"
Set Pres = PPT.Presentations.Open(My_Pres)
For x = 1 To 3
Set Out_Sh = Workbooks("SPC_1.XLS").Sheets(x + 1)
Set My_Chart = Out_Sh.ChartObjects("X_Chart")
Title_Text = Out_Sh.[F201]
PPT.Windows(1).View.GotoSlide x
With Pres
.Slides(x).Shapes(1).TextFrame.TextRange.Characters.Text = Title_Text
.Slides(x).Shapes(2).Select
End With
My_Chart.CopyPicture Appearance:=xlPrinter, Format:=xlPicture
PPT.Windows(1).View.Paste
Next
End Sub
Scott Staples <scst...@aristotle.net> wrote in message
news:l31g5.11204$we.3...@news-west.usenetserver.com...
Excel into a PowerPoint Slide. Hope you find it useful.
Sub Chart_Into_Ppt()
Set PPT = New PowerPoint.Application
With PPT
.Visible = True
.Activate
End With
My_Pres = ThisWorkbook.Path & "\spcorch.ppt"
Set Pres = PPT.Presentations.Open(My_Pres)
For x = 1 To 3
Set Out_Sh = Workbooks("SPC_1.XLS").Sheets(x + 1)
Set My_Chart = Out_Sh.ChartObjects("X_Chart")
Title_Text = Out_Sh.[F201]
PPT.Windows(1).View.GotoSlide x
With Pres
.Slides(x).Shapes(1).TextFrame.TextRange.Characters.Text = Title_Text
.Slides(x).Shapes(2).Select
End With
My_Chart.CopyPicture Appearance:=xlPrinter, Format:=xlPicture
PPT.Windows(1).View.Paste
Next
End Sub
Scott Staples <scst...@aristotle.net> wrote in message
news:l31g5.11204$we.3...@news-west.usenetserver.com...
0 new messages