Microsoft Office Forums - View Single Post - [Solved] Macro to Insert Logo in header on 1st page only and bookmark it.

macropod · 09-14-2016, 04:10 PM

You can't bookmark a shape object. You might bookmark its anchor but, better still, if you name the shape, you can use the name for future reference.

Code:

Sub TITLE()
Application.ScreenUpdating = False
Dim Shp As Shape
With ActiveDocument.Sections(1)
  With .PageSetup
    .DifferentFirstPageHeaderFooter = True
    .TopMargin = CentimetersToPoints(5)
  End With
  Set Shp = .Headers(wdHeaderFooterFirstPage).Shapes.AddPicture _
    (FileName:="Z:\Logo1.jpg", LinkToFile:=False, SaveWithDocument:=True)
  With Shp
    .Height = CentimetersToPoints(4.94)
    .Width = CentimetersToPoints(3.58)
    .LockAspectRatio = True
    .Left = CentimetersToPoints(13.67)
    .Top = CentimetersToPoints(-1.23)
    .WrapFormat.AllowOverlap = True
    .WrapFormat.Side = wdWrapNone
    .Name = "Logo1"
  End With
  Set Shp = .Headers(wdHeaderFooterFirstPage).Shapes.AddPicture _
    (FileName:="Z:\Logo2.jpg", LinkToFile:=False, SaveWithDocument:=True)
  With Shp
    .Height = CentimetersToPoints(4.29)
    .Width = CentimetersToPoints(4.84)
    .LockAspectRatio = True
    .Left = CentimetersToPoints(7.83)
    .Top = CentimetersToPoints(-0.27)
    .WrapFormat.AllowOverlap = True
    .WrapFormat.Side = wdWrapNone
    .Name = "Logo2"
  End With
End With
Set Shp = Nothing
Application.ScreenUpdating = True
End Sub

PS: When posting code, please use the code tags, indicated by the # button on the posting menu. Without them, your code loses much of whatever structure it had.