Quote:
Originally Posted by macropod
You might try a macro like the following. It ensures all shape objects are positioned within the page margins.
Code:
Sub Demo()
Application.ScreenUpdating = False
Dim Shp As Shape, iShp As InlineShape
For Each Shp In ActiveDocument.Shapes
With Shp
If (.Top < .Anchor.PageSetup.TopMargin) Or _
(.Left < .Anchor.PageSetup.LeftMargin) Or _
(.Top > .Anchor.PageSetup.BottomMargin - .Height) Or _
(.Left < .Anchor.PageSetup.RightMargin - .Width) Then
Set iShp = .ConvertToInlineShape
iShp.ConvertToShape
End If
End With
Next
Application.ScreenUpdating = True
End Sub
|
I'm trying to create a new macro but for some reason the editor opens with what looks like a macro pertaining to my reference/citation manager Zotero. Ctrl + N makes a new line rather than a new macro. Can I replace 'ZoteroAddEditBibliography Macro' without affecting the function of my reference manager add-in?
Edit: never mind; I was able to highlight the invisible caption box using the selection pane which caused its anchor to appear and then I dragged the anchor into my new borderless table which caused it to appear at the top of the table.
Quote:
Originally Posted by Guessed
I shake my head following the ongoing sagas you are encountering because you decided to float all your graphics. When your pictures are full width of the page there is zero value in floating the pictures. As you can now appreciate, there is plenty of downside.
On the bright side, you've now discovered a new drawback I hadn't even considered.
|
I started putting my figures into borderless tables one or two weeks ago but I started this document a few months ago so there are many images which are not in tables. I was actually trying to put existing images into tables when a caption box flew off somewhere.
07-26-2018, 10:18 PM
Similar Threads
Auto back to top of page
Windows 10 
Office 2016
Hybrid Mode