Paste shape from Excel

[jeffreybrown]

I'm taking a shape from Excel and would like to fill the slide in ppt.



This below is fine, but how can it stretch from the left to the right?

    With PPSlide
        .Shapes.Paste.Select
        With .Shapes(.Shapes.Count)
            .LockAspectRatio = msoTrue
            .Left = 15
            .Top = 100
            .Height = 400
        End With

[JohnWilson]

Is this code running in Excel or PowerPoint. and can you include the full code.

[jeffreybrown]

Hi John,

I'm running the code from Excel. This seems to size the shape okay, but most likely a better way to fill the ppt slide.

Sub Chart_Module()
    Dim PPPres      As Object
    Dim PPApp       As Object
    Dim PPSlide     As Object
    Dim SlideCount  As Long
    Dim strFile     As String: strFile = "Charts.pptx"

    On Error Resume Next
    Set PPApp = GetObject(Class:="PowerPoint.Application")
    If PPApp Is Nothing Then
        Set PPApp = CreateObject(Class:="PowerPoint.Application")
    Else
        Set PPPres = PPApp.Presentations(strFile)
    End If
    On Error GoTo 0

    If PPPres Is Nothing Then
        Set PPPres = PPApp.Presentations.Open(ActiveWorkbook.Path & Application.PathSeparator & strFile)
    Else
    End If

    PPApp.ActiveWindow.ViewType = 1

    ActiveSheet.Shapes(3).Copy
    SlideCount = PPPres.Slides.Count
    Set PPSlide = PPPres.Slides.Add(SlideCount + 1, 11)
    PPApp.ActiveWindow.View.GotoSlide PPSlide.SlideIndex
    
    With PPSlide
        .Shapes.Paste.Select
        With .Shapes(.Shapes.Count)
            .LockAspectRatio = msoTrue
            .Left = 15
            .Top = 100
            .Height = 400
        End With
        With .Shapes(.Shapes.Count)
            .LockAspectRatio = msoFalse
            .Width = 690
        End With
    End With

End Sub

[JohnWilson]

Maybe I'm misunderstanding but maybe use

 With PPSlide
        .Shapes.Paste.Select
       
        With .Shapes(.Shapes.Count)
            .LockAspectRatio = msoFalse
            .Left = 0
            .Top = 0
            .Width = PPApp.PageSetup.SlideWidth
            .Height = PPApp.PageSetup.SlideHeight
        End With
    End With

[jeffreybrown]

Thanks John. This will work.