Want to avoid the missteps to gaining all the benefits of the cloud? Learn more about the different assessment options from our Cloud Advisory team.
Sub insertgraphic() If Application.Presentations.Count = 0 Then MsgBox "A presentation must be open to use this command.", vbInformation Exit Sub End If Call makesureslideselected Dim currentslide As Slide Dim pickedgraphic As String Dim pickedgraphicfolder As String Dim storedgraphicfolder As String Set currentslide = ActivePresentation.Slides(ActiveWindow.View.Slide.SlideIndex) On Error Resume Next storedgraphicfolder = GetSetting("Microsoft PowerPoint", "HPCToolbar", "storedgraphicfolder", "") On Error GoTo 0 If storedgraphicfolder = "" Then storedgraphicfolder = "Macintosh HD:Library" Dim sMacScript As String sMacScript = "set pickedgraphic to (choose file with prompt " & """Select a file to import"" default location" _ & " alias """ & storedgraphicfolder & """) as string" & vbLf & "return pickedgraphic" pickedgraphic = MacScript(sMacScript) currentslide.Shapes.AddPicture fileName:=pickedgraphic, linktofile:=msoFalse, savewithdocument:=msoTrue, Left:=100, Top:=100
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.