copy chart to powerpoint

[Forestq]

Hi,

I want to copy chart from excel to powerpoint and paste as image:

Dim wb As Workbook
Dim ws2 As Worksheet


Set wb = ActiveWorkbook
Set ws2 = wb.Worksheets("C2")


Dim newPowerPoint As PowerPoint.Application
Dim activeSlide As PowerPoint.Slide
     
Set newPowerPoint = New PowerPoint.Application
newPowerPoint.Presentations.Add


newPowerPoint.ActivePresentation.Slides.Add newPowerPoint.ActivePresentation.Slides.Count + 1, ppLayoutBlank
newPowerPoint.ActiveWindow.View.GotoSlide newPowerPoint.ActivePresentation.Slides.Count
Set activeSlide = newPowerPoint.ActivePresentation.Slides(newPowerPoint.ActivePresentation.Slides.Count)


'********************************************* C2
ws2.ChartObjects("Chart 1").Select
ActiveChart.ChartArea.Copy
activeSlide.Shapes.PasteSpecial(DataType:=ppPasteMetafilePicture).Select
[code]

I got error: run-time error '424':
object required

what I have wrong??

 

[Domenic]

There's no need to select...

activeSlide.Shapes.PasteSpecial DataType:=ppPasteMetafilePicture

To set properties...

[COLOR=darkblue]Dim[/COLOR] pptShape [COLOR=darkblue]As[/COLOR] PowerPoint.Shape

[COLOR=darkblue]Set[/COLOR] pptShape = activeSlide.Shapes.PasteSpecial(DataType:=ppPasteMetafilePicture)(1)

[COLOR=green]'set properties[/COLOR]
[COLOR=darkblue]With[/COLOR] pptShape
    .Left = 25
    .Top = 25
    [COLOR=green]'etc[/COLOR]
    '
    '
    [COLOR=green]'[/COLOR]
[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]With[/COLOR]

Note that PasteSpecial returns a ShapeRange, hence the use of (1). As such a Shape object is returned, which is assigned to the object variable pptShape.

Hope this helps!

 

[Forestq]

thanks Domenic!

 

[Forestq]

one more question: how to simply add text box in ppt?

 

[Domenic]

Try something like this...

[color=darkblue]Dim[/color] oTextBox [color=darkblue]As[/color] PowerPoint.Shape

[color=darkblue]Set[/color] oTextBox = activeSlide.Shapes.AddTextbox( _
    Orientation:=msoTextOrientationHorizontal, _
    Left:=25, _
    Top:=25, _
    Width:=150, _
    Height:=200)

[color=darkblue]With[/color] oTextBox
    .TextFrame.TextRange.Characters.Text = "Your text here"
    [color=darkblue]With[/color] .Line
        .Visible = msoTrue
        .ForeColor.RGB = RGB(255, 0, 0)
    [color=darkblue]End[/color] [color=darkblue]With[/color]
    [color=darkblue]With[/color] .Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(255, 255, 0)
    [color=darkblue]End[/color] With
End With

Hope this helps!

 

[Forestq]

Thanks!