Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
From Early to Late bind
I want to convert the following code from Early binding to Late binding.
Anyone any idea how to do that? Public Sub ChartToPowerPoint() Application.ScreenUpdating = False Dim PPApp As PowerPoint.Application Dim PPPres As PowerPoint.Presentation Dim PPSlide As PowerPoint.Slide Dim NewIndex As Integer Dim ChartName As String ChartName = ActiveSheet.Name ActiveSheet.ChartObjects(ChartName).Activate ActiveChart.ChartArea.Select ActiveChart.CopyPicture Appearance:=xlScreen, Size:=xlScreen, Format:=xlBitmap On Error GoTo PPAppNotopen Set PPApp = GetObject(, "Powerpoint.Application") On Error GoTo PPPresNotopen Set PPPres = PPApp.ActivePresentation PPApp.ActiveWindow.ViewType = ppViewNormal On Error GoTo 0 NewIndex = PPPres.Slides.Count + 1 PPPres.Slides.Add(Index:=NewIndex, Layout:=ppLayoutBlank).Select Set PPSlide = PPPres.Slides(PPApp.ActiveWindow.Selection.SlideRa nge.SlideNumber) PPApp.ActiveWindow.ViewType = ppViewSlide PPSlide.Shapes.Paste.Select PPApp.ActiveWindow.Selection.ShapeRange.Height = 303.5 PPApp.ActiveWindow.Selection.ShapeRange.Align msoAlignCenters, True PPApp.ActiveWindow.Selection.ShapeRange.Align msoAlignMiddles, True PPApp.ActiveWindow.ViewType = ppViewNormal Set PPSlide = Nothing Set PPPres = Nothing Set PPApp = Nothing a = MsgBox("Chart has been copied to your PowerPoint presentation.", vbOKOnly, "Chart copied to PowerPoint") Exit Sub PPAppNotopen: a = MsgBox("PowerPoint is not available at the moment." & Chr(10) & "Open PowerPoint and the presentation where the chart should be copied to first and then try again.", vbOKOnly, "PowerPoint not active") Exit Sub PPPresNotopen: a = MsgBox("There is no PowerPoint presentation available at the moment." & Chr(10) & "Open the PowerPoint presentation where the chart should be copied to first and then try again.", vbOKOnly, "No PowerPoint presentation available") Exit Sub End Sub Hope you can help me out. Henk |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
From Early to Late bind | Excel Programming | |||
How to late-bind Excel | Excel Programming | |||
Early and Late Binding Vba Excel | Excel Programming | |||
Late Bind to Specific version of Application | Excel Programming | |||
Early vs Late Binding - Word | Excel Programming |