automate insert picture and name (2002 SP-2)

Topic

New Reply

I would like to automate the following task (assign/attach to a toolbar):

In slide mode…
Insert / Picture / From file
select picture, copy filename, and insert
select picture (its selected by default after inserting), go to Format / picture / Web and enter the original name of the picture file.

I want to do this so after I insert several pictures, I can list them by file name with the “Select Multiple Objects” tool.

I tried the macro recorder but the only thing I get is >

ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:=”P:My DocumentsMy Picturesworkhard.gif”, LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=318, Top:=228, Width:=85, Height:=85).Select
With ActiveWindow.Selection.ShapeRange
.Fill.Transparency = 0#
.AlternativeText = “workhard.gif”

>

Can anyone help me with the code? Thank you

Reply | Quote

Replies

Maybe something like this? But what is the Select Multiple Objects tool?

Sub InsertPictures()
' Extract file names selected by user, and then take action on them
With PowerPoint.Application.FileDialog(msoFileDialogFilePicker)
    If .Show = -1 Then  'User didn't cancel
        Dim varFileName As Variant  'So we can use "for each" with the file names
        Dim shpPicture As Shape
        For Each varFileName In .SelectedItems
            Set shpPicture = ActiveWindow.Selection.SlideRange. _
                             Shapes.AddPicture(FileName:=varFileName, _
                             LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, _
                             Left:=318, Top:=228)
            With shpPicture
                .Fill.Transparency = 0#
                .AlternativeText = Mid(varFileName, InStrRev(varFileName, "") + 1)
            End With
        Next
        If Not (shpPicture Is Nothing) Then Set shpPicture = Nothing
    End If
End With
End Sub

Hope this helps.

Reply | Quote

I’ve just copied your code to my ppt visual basic and it works GREAT!

Only one small detail. The picture insert / open conventional window defaults to “all files” instead of only graphics files extensions. How can I modify the code so I don’t have to set it manually every time, to filter, for example, gif’s, tif’s and jpg’s only?

THANX!!!

Reply | Quote

Below the line With PowerPoint.Application.FileDialog(msoFileDialogFilePicker), insert this line:

.Filters.Add “Images”, “*.gif; *.jpg; *.tif”, 1

Reply | Quote

Below the line With PowerPoint.Application.FileDialog(msoFileDialogFilePicker), insert this line:

.Filters.Add “Images”, “*.gif; *.jpg; *.tif”, 1

Reply | Quote

Hmmm, I didn’t think of that, since I pointed it to My Pictures. Anyway, HansV responded before I even made it out the door this morning.

Reply | Quote

Hmmm, I didn’t think of that, since I pointed it to My Pictures. Anyway, HansV responded before I even made it out the door this morning.

Reply | Quote

I’ve just copied your code to my ppt visual basic and it works GREAT!

Only one small detail. The picture insert / open conventional window defaults to “all files” instead of only graphics files extensions. How can I modify the code so I don’t have to set it manually every time, to filter, for example, gif’s, tif’s and jpg’s only?

THANX!!!

Reply | Quote

Does anyone know how to get the function in the previous post to work in PP 2000?

I would be satified with being able to select and insert a single picture.

Thanks in advance.

Reply | Quote

See How to display ‘Open/Save As’ dialogs in PowerPoint.

Reply | Quote

Wonderful! works perfectly and how obscure.

Many, many thanks there is know way I could have found that.

Reply | Quote

But what is the Select Multiple Objects tool?

It’s a tool you have to add to your toolbar via Tools/Customize. It basically gives you a dialog box with a list of the stuff on your slide; you tick the box beside whatever object you want to select.

Very handy for selecting items which are below other items or otherwise difficult to select.

Whatever text you put in the Web tab when you go to Format/Object shows up in the Select Multiple dialog, too. That’s another reason it’s handy — you can basically select objects by name if you’re disciplined about inserting descriptive text in the Format/Object/Web tab.

Reply | Quote

Its’ new in 2002? I am sure I haven’t seen it before.

Reply | Quote

I don’t think so, but I don’t have any earlier versions installed right now to check!

Look under Tools/Customize/Commands. Select Multiple is in the Drawing category.

Not many people know about it because it’s not on any toolbar by default.

Reply | Quote

I don’t think so, but I don’t have any earlier versions installed right now to check!

Look under Tools/Customize/Commands. Select Multiple is in the Drawing category.

Not many people know about it because it’s not on any toolbar by default.

Reply | Quote

I have it in 2000

Reply | Quote

I have it in 2000

Reply | Quote

Its’ new in 2002? I am sure I haven’t seen it before.

Reply | Quote

But what is the Select Multiple Objects tool?

It’s a tool you have to add to your toolbar via Tools/Customize. It basically gives you a dialog box with a list of the stuff on your slide; you tick the box beside whatever object you want to select.

Very handy for selecting items which are below other items or otherwise difficult to select.

Whatever text you put in the Web tab when you go to Format/Object shows up in the Select Multiple dialog, too. That’s another reason it’s handy — you can basically select objects by name if you’re disciplined about inserting descriptive text in the Format/Object/Web tab.

Reply | Quote

Maybe something like this? But what is the Select Multiple Objects tool?

Sub InsertPictures()
' Extract file names selected by user, and then take action on them
With PowerPoint.Application.FileDialog(msoFileDialogFilePicker)
    If .Show = -1 Then  'User didn't cancel
        Dim varFileName As Variant  'So we can use "for each" with the file names
        Dim shpPicture As Shape
        For Each varFileName In .SelectedItems
            Set shpPicture = ActiveWindow.Selection.SlideRange. _
                             Shapes.AddPicture(FileName:=varFileName, _
                             LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, _
                             Left:=318, Top:=228)
            With shpPicture
                .Fill.Transparency = 0#
                .AlternativeText = Mid(varFileName, InStrRev(varFileName, "") + 1)
            End With
        Next
        If Not (shpPicture Is Nothing) Then Set shpPicture = Nothing
    End If
End With
End Sub

Hope this helps.

Reply | Quote