طريقة عمل علامة مائية فى ورقة اكسيل

[حسام عبدالمحسن]

السلام عليكم

 

الاخوة الافاضل اريد طريقة لعمل علامة مائية فى ورقة اكسيل

وجزاكم الله كل خير

[الـعيدروس]

السلام عليكم

جرب هكذا

Public Sub Ali_T()
Const S As String = "لا اله إلا الله محمد رسول الله"
ActiveSheet.Shapes.AddTextEffect(PresetTextEffect:=2, _
Text:=S, FontName:="Arial Black", FontSize:=36, FontBold:=False, FontItalic:=False, Left:=50, Top:=150).Select
With Selection.ShapeRange
     .ScaleHeight 1.23, False
     .ScaleWidth 1.6, False
     .Fill.Visible = True
     .Fill.Solid
     .Fill.ForeColor.SchemeColor = 22
     .Fill.Transparency = 0.5
     .Line.Weight = 1#
     .Line.DashStyle = 1
     .Line.Style = 1
     .Line.Transparency = 0#
     .Line.Visible = True
     .Line.ForeColor.SchemeColor = 22
     .Line.BackColor.RGB = RGB(255, 255, 255)
     .Height = 80
     .Width = 400
End With
End Sub

[حسام عبدالمحسن]

اخى الكريم الكود يعمل جيدا ولكن اريد العلامة المائية عبارة عن اى صور اقوم باختيارها فتكون علامة مائية هل ممكن عمل ذلك

[الـعيدروس]

ممكن ان شاء الله

[الـعيدروس]

الاخ الحبيب ابو ندى 

مالاوفيس الذي تستخدمه ؟

[حسام عبدالمحسن]

2007 اخى الكريم

[الـعيدروس]

جرب هذه الطريقة 

ادخل مسار الصورة بالكود كما بالشرح

' إسم الصورة وإمتدادها
Private Const Nm As String = "ddd.jpg"
Public Sub Ali_Pr()
Dim Pth As String
' هكذا مسار الصورة
'Pth = C:\Users\Public\Pictures\ddd.jpg
' مسار الصورة الحالي بنفس فولدر ملف الاكسل
Pth = ThisWorkbook.Path & Application.PathSeparator & "\" & Nm
    ActiveSheet.PageSetup.CenterHeaderPicture.Filename = Pth
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = "&G"
        .RightHeader = ""
        .LeftFooter = ""
        .RightFooter = ""
        If .Orientation = xlPortrait Then
            .HeaderMargin = Application.InchesToPoints(3)
            ElseIf .Orientation = xlLandscape Then
            .HeaderMargin = Application.InchesToPoints(3.5)
        End If
    End With
End Sub

[حسام عبدالمحسن]

اخى العزيز تم تجربة الكود وللاسف لم يعمل معى هل من طريقة اخرة لعمل ذلك

وجزاك الله كل خير

[الـعيدروس]

اخي ابو ندى العلامه المائة تريدها تظهر عند الطباعه ؟

[الـعيدروس]

شاهد المرفق

تطبيق للكود السابق

جرب انقر على الزر وشاهد النتائج

امل ان يكون ماتريد

علامه.rar

[حسام عبدالمحسن]

بالفعل هذا هو المطلوب اخى الكريم وجارى تجربة الكود مرة اخرى

[حسام عبدالمحسن]

اشكرك استاذى الكريم تم تجربة الكود ويعمل جيدا

جزاك الله كل خير