VBA to automatically insert photo number underneath all the images

sulav.gautam · #1 12-11-2024, 09:48 PM

Is there a way to automatically insert photo number under each photo inside a table. The word file will have multiple photos (up to 500) inside a table. Underneath each photos will be a brief comment for that photo. I am looking for a way to automatically insert photo caption like Photo 1 underneath each photo while maintaining the comment next to it. Kindly refer to the attached picture for reference.

gmayor · #2 12-12-2024, 02:27 AM

See Photo Gallery Add-in Template which will facilitate either option.

gmaxey · #3 12-12-2024, 04:40 AM

While Graham's add-in is a logical step forward; if you just want to fix what you already have, you could try one of the following procedures:

Code:

Sub FixExisting()
Dim oTbl As Table
Dim oCell As Cell
Dim oRng As Range
Dim lngIndex As Long
  Set oTbl = Selection.Tables(1)
  lngIndex = 1
  For Each oCell In oTbl.Range.Cells
    If oCell.Range.InlineShapes.Count = 1 Then
      Set oRng = oCell.Range.InlineShapes(1).Range
      oRng.Collapse wdCollapseEnd
      oRng.InsertAfter "Picture " & lngIndex
      lngIndex = lngIndex + 1
    End If
  Next
lbl_Exit:
  Exit Sub
End Sub
Sub FixExistingII()
Dim oTbl As Table
Dim oCell As Cell
Dim oRng As Range
Dim lngIndex As Long
  Set oTbl = Selection.Tables(1)
  lngIndex = 1
  For Each oCell In oTbl.Range.Cells
    If oCell.Range.InlineShapes.Count = 1 Then
      Set oRng = oCell.Range.InlineShapes(1).Range
      oRng.Collapse wdCollapseEnd
      oRng.Move wdCharacter, 1
      oRng.InsertAfter "Picture " & lngIndex & " "
      lngIndex = lngIndex + 1
    End If
  Next
lbl_Exit:
  Exit Sub
End Sub

macropod · #4 12-12-2024, 01:23 PM

See the Automate the Insertion of Multiple Images into a Document 'Sticky' thread at the top of the Drawing and Graphics forum:
https://www.msofficeforums.com/drawi...-document.html

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Insert photo gps information in column next to photo	Belinda Burton	Word VBA	4	11-11-2024 12:27 PM
VBA Module for inserting images into Photo Album	Jjansens	Word VBA	5	11-18-2022 03:43 PM
Macro to insert multiple images into a table with defined number of rows and columns	Davidl88	Word VBA	6	09-05-2022 03:41 PM
Insert a line with text right underneath	infinitedespair	Word	1	10-28-2014 08:22 PM
insert photo on top of movie	wabash12	PowerPoint	2	06-14-2013 06:32 AM