Prezados, bom dia.

Tenho uma macro que exporta para o powerpoint diversos gráficos do excel, através de 'imagem' ou 'bitmap'. Porém, estou com dificuldade em dimensionar esses gráficos nos slides do powerpoint.

Neste, o método 'weidth' aumenta ou diminui o gráfico tanto largura quanto altura, e o método "height" não altera em nada. Eu queria um jeito de aumentar só a largura da imagem sem que altere sua altura.

Segue em anexo as planilhas usadas e abaixo um trecho do código mencionado.

A planilha "Pasta1" executa a macro, as outras duas em excel são onde pego pego os gráficos. O arquivo .ppt é onde colo os gráficos.
Fiquem a vontade para fazer as devidas alterações.

Um abraço a todos e desde já agradeço.

Let file = "W:ENERGIAGESTAODEATIVOSRELATÓRIOModelo.pptx"

Set pptApp = CreateObject("PowerPoint.Application")
    
    With pptApp
        Let .Visible = True
        Let .WindowState = 3
        Set Pres1 = pptApp.Presentations.Open(file)
    End With
    
    
'############## SLIDE 3 ###################
    
    
Workbooks.Open Filename:="W:ENERGIAGESTAODEATIVOSRELATÓRIOACOMPANHAMENTO_GSF.xlsx", UpdateLinks:=False
    
Worksheets("Dados").Range("s433:aI464").CopyPicture Appearance:=xlScreen, Format:=xlPicture
pptApp.ActiveWindow.View.GotoSlide Index:=3
    
    
    
Set secondSlide = pptApp.ActiveWindow.View.Slide
secondSlide.Shapes.Paste.Select

With pptApp.ActiveWindow.Selection.ShapeRange
        
    Let .Height = 600
    Let .Width = 670

        .Align msoAlignCenters, True
        .Align msoAlignMiddles, True
        .IncrementTop 24#
    
    pptApp.ActiveWindow.Selection.ShapeRange(1).Top = pptApp.ActiveWindow.Selection.ShapeRange(1).Top + 50
    
End With
    
Workbooks("ACOMPANHAMENTO_GSF.xlsx").Close SaveChanges:=False