علامة مائية

Private Const Nm As String = "learnvbamsexcel.jpg"

    arr = Array(1, 2, 3)

                .HeaderMargin = Application.InchesToPoints(3.8)

    Sheets("المدونة").Activate

Private Const Nm As String = "learnvbamsexcel.jpg"
Public Sub Watermark()
    Dim Pth As String
    Dim arr(), sh

    arr = Array(1, 2, 3)
    For sh = LBound(arr) To UBound(arr)
        Pth = ThisWorkbook.Path & Application.PathSeparator & "\" & Nm
        Sheets(arr(sh)).PageSetup.CenterHeaderPicture.Filename = Pth
        With Sheets(arr(sh)).PageSetup
            .CenterHeader = "&G"
            If .Orientation = xlPortrait Then
                .HeaderMargin = Application.InchesToPoints(3.8)
            ElseIf .Orientation = xlLandscape Then
                .HeaderMargin = Application.InchesToPoints(5.5)
            End If
            ActiveWindow.SelectedSheets.PrintPreview

        End With
    Next
    MsgBox "Done.(-learnvbamsexcel مع تحيات -)."
    
    Sheets("المدونة").Activate

End Sub