Insert Powerpoint image via VBA without defined file path-CodePudding

is it possible to upload an image in powerpoint via VBA without specifying the file path and its name (in my example is a picpath:/imagens/capturar.png) ? So that the user can browse the computer like a normal file upload. Notice that in my code I need to specify the path of the file and as this presentation will be used by more than one person, I cannot define a path and name.

I attached a print and also the code snippet.

Sub uploadImg()
Dim tgtSlide As Slide
Dim prj As Shape

Dim sld As Slide
Dim picPath As String

Set sld = ActivePresentation.SlideShowWindow.View.Slide
Set tgtSlide = ActivePresentation.Slides(sld.SlideIndex   0)

'get the presentation save path first
picPath = ActivePresentation.Path
'define the image full path
picPath = picPath & "/imagens/capturar.png"

'add a linked image/shape to target slide
'Set prj = tgtSlide.Shapes.AddPicture(picPath, msoTrue, msoTrue, Left:=500, Top:=130, Width:=190, Height:=105)
Set prj = tgtSlide.Shapes.AddPicture(picPath, msoTrue, msoTrue, Left:=500, Top:=130)
    With prj
        .LockAspectRatio = msoTrue 'can be set to msoFalse if you don't need to lock aspect ratio
        '.Width = 190
        .Height = 105
    End With

prj.LinkFormat.Update

'goes to the target slide
ActivePresentation.SlideShowWindow.View.GotoSlide (tgtSlide.SlideIndex)

End Sub

CodePudding user response：

You can allow the user to define a path and store it in Location:

Application.FileDialog(msoFileDialogFilePicker).Show
Dim Location As String
Location = Application.FileDialog(msoFileDialogFilePicker).SelectedItems(1)

'define the image full path
picPath = Location

CodePudding user response：

Obviamente precisa ser um caminho existente. Sendo assim, ou será um caminho físico e o arquivo da imagem deverá ser enviado junto do ppt ou então será um caminho online.

Porém, o método Shapes.AddPicture só aceita arquivo físico como diz no manual da url https://docs.microsoft.com/pt-br/office/vba/api/powerpoint.shapes.addpicture

A alternativa para continuar o que você quer, seria realizar um download da imagem, gravar no disco e depois usar o seu addpicture para ler desse arquivo salvo. Mas, além de demorar para carregar o arquivo, vc ainda teria o problema de algumas máquinas não deixarem fazer o download por questões de segurança.

Sendo assim, para seguir com o seu objetivo, penso que o ideal seria você não usar o addpicture e buscar (ou criar) outro componente que faça o download e exiba a imagem.

Mas, já pensou que talvez você não precise compartilhar o PPT com essas pessoas?

Porque você não exporta para o Google ou salva esse PPT em PDF? Assim, você não precisaria compartilhar um PPT na máquina dos usuários e não precisaria "perder tempo" com esse asssunto.