Coding works for WORD but not POWERPOINT, how should i modify it?

[rbuzz]

I would like to insert every 6 pictures in a new slide of powerpoint with it's file name at the centre bottom of the image itself.

The below coding works for word but not on powerpoint and i would like to do further editing.

1) modify coding so it'll work on powerpoint as well
2) current in word it's showing 1 image per page, can we modify to show 6 images per slide when it comes to powerpoint?
3) the file name in word currently showing the format of the file e.g. jpg / .png, how could i skip that?
4) the file name is showing on the bottom left in word, how can i make it centre bottom?



Sub PicWithCaption()
Dim xFileDialog As FileDialog
Dim xPath, xFile As Variant
On Error Resume Next
Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
If xFileDialog.Show = -1 Then
xPath = xFileDialog.SelectedItems.Item(1)
If xPath <> "" Then
xFile = Dir(xPath & "\*.*")
Do While xFile <> ""
If UCase(Right(xFile, 3)) = "PNG" Or _
UCase(Right(xFile, 3)) = "TIF" Or _
UCase(Right(xFile, 3)) = "JPG" Or _
UCase(Right(xFile, 3)) = "GIF" Or _
UCase(Right(xFile, 3)) = "BMP" Then
With Selection
.InlineShapes.AddPicture xPath & "" & xFile, False, True
.InsertAfter vbCrLf
.MoveDown wdLine
.Text = xFile & Chr(10)
.MoveDown wdLine
End With
End If
xFile = Dir()
Loop
End If
End If
End Sub

[June7]

Note for future: post code between CODE tags to retain indentation and readability.

1. I don't think InlineShapes is valid in PP. Use Shapes. I doubt the exact same code can be used for both Word and PP.

2. Don't see why not. Example of adding image:


With .Shapes.AddShape(msoShapeRectangle, 360, 121, 220, 110) 'photo
.Fill.UserPicture "image path\name"
End With

3. Use string manipulation functions to truncate filename: Left(xFile, InStrRev(xFile, ".") - 1).

4. Try: .ParagraphFormat.Alignment = wdAlignParagraphCenter

[rbuzz]

Thanks! i tried to modify the code just now and it works on powerpoint but still i would like to update some functions

1) it doesn't work when the file is at .jpeg
2) the image is now resize, how should i keep it as it's own proportion?
3) images are now on the left of the slide, how can i keep it centred?




Sub PicWithCaption()
Dim xFileDialog As FileDialog
Dim xPath As String, xFile As String, xFileName As String
Dim oSlide As Slide
Dim oShape As Shape
Dim i As Long, j As Long
Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
xFileDialog.Title = "Select a folder with pictures"
If xFileDialog.Show = -1 Then
xPath = xFileDialog.SelectedItems(1)
If xPath <> "" Then
xFile = Dir(xPath & "\*.*")
j = 0
Do While xFile <> ""
If UCase(Right(xFile, 3)) = "PNG" Or _
UCase(Right(xFile, 3)) = "TIF" Or _
UCase(Right(xFile, 3)) = "JPG" Or _
UCase(Right(xFile, 3)) = "GIF" Or _
UCase(Right(xFile, 3)) = "BMP" Then
xFileName = Left(xFile, Len(xFile) - 4)
If j Mod 6 = 0 Then
Set oSlide = ActivePresentation.Slides.Add(ActivePresentation.Slides.Count + 1, ppLayoutBlank)
End If
i = j Mod 3
If j Mod 6 < 3 Then
Set oShape = oSlide.Shapes.AddPicture(FileName:=xPath & "" & xFile, _
LinkToFile:=msoFalse, _
SaveWithDocument:=msoTrue, _
Left:=100 + i * 150, _
Top:=100, _
Width:=120, _
Height:=90)
Else
Set oShape = oSlide.Shapes.AddPicture(FileName:=xPath & "" & xFile, _
LinkToFile:=msoFalse, _
SaveWithDocument:=msoTrue, _
Left:=100 + i * 150, _
Top:=250, _
Width:=120, _
Height:=90)
End If
oShape.Name = xFileName
Set oShape = oSlide.Shapes.AddTextbox(msoTextOrientationHorizontal, _
Left:=100 + i * 150, _
Top:=oShape.Top + oShape.Height + 10, _
Width:=120, _
Height:=20)
oShape.TextFrame.TextRange.Text = xFileName
j = j + 1
End If
xFile = Dir()
Loop
End If
End If
End Sub




Note for future: post code between CODE tags to retain indentation and readability.

1. I don't think InlineShapes is valid in PP. Use Shapes. I doubt the exact same code can be used for both Word and PP.

2. Don't see why not. Example of adding image:


With .Shapes.AddShape(msoShapeRectangle, 360, 121, 220, 110) 'photo
.Fill.UserPicture "image path\name"
End With

3. Use string manipulation functions to truncate filename: Left(xFile, InStrRev(xFile, ".") - 1).

4. Try: .ParagraphFormat.Alignment = wdAlignParagraphCenter

[June7]

Please, post code between CODE tags.

I used jpg in my test.

I don't have answers to your questions at hand. Would have to do web search and testing. Did you do that?

[John Wilson]

This is top of head code but might give you a pointer


Sub PicWithCaption()
Dim xFileDialog As FileDialog
Dim xPath As String, xFile As String, xFileName As String
Dim oSlide As Slide
Dim oShape As Shape
Dim i As Long, j As Long
Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
xFileDialog.Title = "Select a folder with pictures"
If xFileDialog.Show = -1 Then
xPath = xFileDialog.SelectedItems(1)
If xPath <> "" Then
xFile = Dir(xPath & "\*.*")
j = 0
Do While xFile <> ""
If UCase(Right(xFile, 3)) = "PNG" Or _
UCase(Right(xFile, 3)) = "TIF" Or _
UCase(Right(xFile, 3)) = "JPG" Or _
UCase(Right(xFile, 4)) = "JPEG" Or _
UCase(Right(xFile, 3)) = "GIF" Or _
UCase(Right(xFile, 3)) = "BMP" Then
xFileName = Left(xFile, Len(xFile) - 4)
If j Mod 6 = 0 Then
Set oSlide = ActivePresentation.Slides.Add(ActivePresentation.Slides.Count + 1, ppLayoutBlank)
ActiveWindow.View.GotoSlide oSlide.SlideIndex
End If
i = j Mod 3
If j Mod 6 < 3 Then
Set oShape = oSlide.Shapes.AddPicture(FileName:=xPath & "\" & xFile, _
LinkToFile:=msoFalse, _
SaveWithDocument:=msoTrue, _
Left:=100 + i * 150, _
Top:=100)
oShape.LockAspectRatio = msoCTrue
oShape.Width = 120
oShape.Select False
Set oShape = oSlide.Shapes.AddTextbox(msoTextOrientationHorizontal, _
Left:=100 + i * 150, _
Top:=oShape.Top + oShape.Height + 10, _
Width:=120, _
Height:=20)
oShape.Select False
oShape.TextFrame.TextRange.Text = xFileName
oShape.TextFrame.TextRange.ParagraphFormat.Alignment = ppAlignCenter
Else
Set oShape = oSlide.Shapes.AddPicture(FileName:=xPath & "\" & xFile, _
LinkToFile:=msoFalse, _
SaveWithDocument:=msoTrue, _
Left:=100 + i * 150, _
Top:=250)
oShape.LockAspectRatio = msoCTrue
oShape.Width = 120

oShape.Select False
Set oShape = oSlide.Shapes.AddTextbox(msoTextOrientationHorizontal, _
Left:=100 + i * 150, _
Top:=oShape.Top + oShape.Height + 10, _
Width:=120, _
Height:=20)
oShape.TextFrame.TextRange.Text = xFileName
oShape.TextFrame.TextRange.ParagraphFormat.Alignment = ppAlignCenter
oShape.Select False
End If
j = j + 1
If j Mod 6 = 0 And j <> 0 Then
With ActiveWindow.Selection.ShapeRange.Group
.Left = ActivePresentation.PageSetup.SlideWidth / 2 - .Width / 2
.Ungroup
End With
End If

End If
xFile = Dir()
Loop
End If
End If
End Sub