View Single Post
 
Old 10-30-2018, 09:23 AM
WORDMAN WORDMAN is offline Windows 7 64bit Office 2007
Novice
 
Join Date: Aug 2017
Posts: 6
WORDMAN is on a distinguished road
Default

Quote:
Originally Posted by Charles Kenyon View Post
In the time we've spent discussing it, you would be done.


Here is a macro that inserts the caption, as a simple number, over a selected image.


Code:
Sub CaptionAbove()
'
' CaptionAbove Macro
' Insert caption above selected shape
'
    Selection.InsertCaption Label:="Figure", TitleAutoText:="", Title:="", _
        Position:=wdCaptionPositionAbove, ExcludeLabel:=1
End Sub

Installing Macros



You can attach a macro to a keyboard shortcut or a QAT button.

I will use the macro.
It will solve my problem.
Thank you very much.
Have a good day
Reply With Quote