10-30-2018, 09:23 AM
|
Novice
|
|
Join Date: Aug 2017
Posts: 6
|
|
Quote:
Originally Posted by Charles Kenyon
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
|