Sub LOGO1()
Application.ScreenUpdating = False
Dim Rng As Range, i As Long, Shp As Shape, ImageName As String
ImageName = "/Users/federicopannacci/Desktop/bcube_logo.png"
With ActiveDocument
  For i = 1 To .ComputeStatistics(wdStatisticPages)
    Set Rng = .Range.GoTo(What:=wdGoToPage, Name:=i)
    Set Shp = .Shapes.AddPicture(FileName:=ImageName, LinkToFile:=False, Anchor:=Rng, _
      Top:=CentimetersToPoints(25), Left:=CentimetersToPoints(6), Width:=95, Height:=45)
    With Shp
      .LockAspectRatio = True
      .WrapFormat.Type = wdWrapBehind
      .LockAnchor = True
      .RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
      .RelativeVerticalPosition = wdRelativeVerticalPositionPage
    End With
    .Hyperlinks.Add Anchor:=Shp, SubAddress:="_top"
  Next
End With
Application.ScreenUpdating = True
End Sub