Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
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.