Microsoft Office Forums

Go Back   Microsoft Office Forums > >

Reply
 
Thread Tools Display Modes
  #1  
Old 05-02-2016, 10:22 PM
Jazz43 Jazz43 is offline How to add captions to every picture Windows 7 64bit How to add captions to every picture Office 2010 64bit
Advanced Beginner
How to add captions to every picture
 
Join Date: Oct 2009
Posts: 54
Jazz43 is on a distinguished road
Post How to add captions to every picture

Hi everyone,
I'm looking for a way to add caption to mutiple pictures at once. Currently, I'm using this macro:



Quote:
Sub CaptionPictures()
Dim objPic As InlineShape

For Each objPic In ActiveDocument.InlineShapes
objPic.Select
Selection.InsertCaption Label:="Figure", TitleAutoText:="", Title:="", _
Position:=wdCaptionPositionBelow, ExcludeLabel:=0
Next objPic
End Sub
However, it has a problem of adding captions to every pictures, including the one with captions already and messes up my labelling. Is there anyone with experience with this issues?
Reply With Quote
  #2  
Old 05-02-2016, 11:15 PM
macropod's Avatar
macropod macropod is offline How to add captions to every picture Windows 7 64bit How to add captions to every picture Office 2010 32bit
Administrator
 
Join Date: Dec 2010
Location: Canberra, Australia
Posts: 21,956
macropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond repute
Default

See: https://www.msofficeforums.com/word-...html#post58886
The macro there turns all pics into inlineshapes in borderless tables, with the captions below the pictures. Re-running the macro won't cause any harm because it skips inlineshapes in tables.
__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]
Reply With Quote
Reply

Tags
caption, macro

Thread Tools
Display Modes


Similar Threads
Thread Thread Starter Forum Replies Last Post
How to add captions to every picture VBA to insert captions without appending to existing captions Marrick13 Word VBA 17 03-21-2023 07:51 PM
How to add captions to every picture Captions: Changing captions in Appendix update all captions carnestw Word 3 10-27-2015 12:34 PM
How to add captions to every picture Automatic change of Picture Captions... pawleex Word 1 08-04-2013 05:04 PM
Move Picture by picture name, rename picture by picture name CatMan PowerPoint 2 04-18-2012 12:21 PM
Powerpoint automatically changing picture size when adding a picture (2010) One_Life PowerPoint 7 01-20-2012 06:57 AM

Other Forums: Access Forums

All times are GMT -7. The time now is 08:13 AM.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2024, vBulletin Solutions Inc.
Search Engine Optimisation provided by DragonByte SEO (Lite) - vBulletin Mods & Addons Copyright © 2024 DragonByte Technologies Ltd.
MSOfficeForums.com is not affiliated with Microsoft