I know this isn't the place, but I need help with PP and I have nowhere else to turn

[shadestreet]

Im sorry for posting a question about PowerPoint on this site, but
have not found a good forum for PowerPoint questions and I figured i
you guys new 1% of what you know about Excel you can help me.

I apologize if this is offtopic, please point me towards a good Powe
Point Forum/Message board if you are bothered by this.

Anyway, here is my question.

I take 20-50 photos a week of a building that I compile into Powe
Point SlideShows.

I am looking for shortcuts in this process from two areas.

First, dumpinig the pictures into the powerpoint file takes tim
because i need to click on each invidual slide and then navigate to th
location of the picture to insert. even using Alt+Shortcuts t
quickly get to "insert" "file" "from location" is time consuming. I
there a way to select a large group of images and insert them i
INDIVIDUAL slides in PP w/o going one by one?

SECOND, more importantly, each photo is much larger than it needs t
be. For each shot I have to adjust the picture size to 37% and the
center on the slide perfectly. Anyone have a faster way o
accomplishing this? Is there anyway to select all pictures and chang
all formats at once?

Again, I realize this is offtopic, but I dont know where else to turn.
Please provide an answer or a link to a better site if you think thi
is disruptive (hey, at least I am not trying to scam you out of 6 buck
with the promise of being a millionaire

 

[JulieD]

Hi

have you tried the microsoft.public.powerpoint group ... i lurk over there
and they seem to be quite a nice bunch of people (now the publisher group on
the other hand ....)

doing a quick google search turned up the following:
* BATCH IMPORT images into PowerPoint
http://www.rdpslides.com/pptfaq/FAQ00050.htm

you can check out the group using a newsreader or a groups.google.com

Cheers
JulieD

 

[Greg Koppel]

I have a PP file at home that you should be able to modify for this. Check
here again tomorrow for the code.

Regards, Greg

 

[shadestreet]

Thanks for the link, I will head over there.

Greg, I am interested in the file you have, I will check back her
soon. Thanks

 

[Greg Koppel]

Dim pic()
Sub AddTestSlideAndShapes()
' Illustrate how to add shapes to a slide and then
' center the shapes in relation to the slide and
' each other.
Dim sldNewSlide As PowerPoint.Slide
Dim shpCurrShape As PowerPoint.Shape
Dim lngSlideHeight As Long
Dim lngSlideWidth As Long
Dim fd As FileDialog
Dim f
Dim vrtSelectedItem As Variant
Dim FileNameLen As Long

With ActivePresentation
' Determine height and width of slide.
With .PageSetup
lngSlideHeight = .SlideHeight
lngSlideWidth = .SlideWidth
End With
'Select a folder
Set fd = Application.FileDialog(msoFileDialogFolderPicker)
With fd
.Show
End With
For i = 1 To fd.SelectedItems.Count
Picture = fd.SelectedItems(i)
FileNameLen = Len(Picture)
Next i
Set fs = Application.FileSearch
With fs
.LookIn = Picture
.FileName = "*.jpg"
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then
MsgBox "There were " & .FoundFiles.Count & _
" file(s) found."
For i = 1 To .FoundFiles.Count
'MsgBox .FoundFiles(i)
Next i
Else
MsgBox "There were no files found."
End If
End With

For i = 1 To fs.FoundFiles.Count
' Add new slide to end of presentation.
Set sldNewSlide = .Slides.Add(.Slides.Count + 1, ppLayoutBlank)
With sldNewSlide
' Specify a background color for the slide.
.ColorScheme = ActivePresentation.ColorSchemes(3)
' Add a WordArt shape by using the AddTextEffect method.

Set shpCurrShape = .Shapes.AddPicture(FileName:=fs.FoundFiles(i),
LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=72, Top:=54) ',
Width:=576, Height:=480) '.Select
' Locate the WordArt shape at the middle of the slide, near the
top.
If shpCurrShape.Width < shpCurrShape.Height Then
'MsgBox "wd<ht"
shpCurrShape.Width = 550 / shpCurrShape.Height *
shpCurrShape.Width
shpCurrShape.Height = 550
End If
If shpCurrShape.Width > shpCurrShape.Height Then
'MsgBox "wd>ht"
shpCurrShape.Width = 750
shpCurrShape.Height = 750 / shpCurrShape.Width *
shpCurrShape.Height
End If
With shpCurrShape
.Left = (lngSlideWidth - .Width) / 2
.Top = 50 + (lngSlideHeight - .Height) / 8
End With
' Add a Textbox shape to the slide and add text to the shape.
'Set shpCurrShape = .Shapes _
'.AddTextbox(msoTextOrientationHorizontal, 100, 100, 500,
500).TextFrame _
.TextRange.Text = "Test Box"
'MsgBox Len(fs.FoundFiles(i))
'MsgBox FileNameLen
Set myDocument = ActivePresentation.Slides(i)

myDocument.Shapes.AddTextbox(Orientation:=msoTextOrientationHorizontal, _
Left:=100, Top:=20, Width:=600, Height:=150).TextFrame _
.TextRange.Text = Right(fs.FoundFiles(i),
Len(fs.FoundFiles(i)) - FileNameLen - 1)
End With

Next
End With
End Sub

Regards, Greg

 

[shadestreet]

thanks Greg, I will try and get this to work shortly, I will probabl
have questions though, hopefully you will check this thread in a day o
two.

Thank