طباعة شعار موحد على جميع الشهائد

[علي بن علي]

السلام عليكم . اساتذتنا الكرام

في الشيت المرفق التوضيح والشرح بجوار نموذج الشهاده

المطلوب عند تعبئة الشهائد

ان يتم ايضا تعبئة الصورة المفترض ان تكون كشعار للمدرسة على جميع الشهائد

دمتم بخير . وعافية 

نسخة من اضافة صورة شعار لجميع الشهائد.xlsm

[lionheart]

Move the school logo as shown and rename it [School_Logo]

01

 

Modify the following parts in the code

Sub kh_AutoFill(R As Integer)
    Dim SourceRange As Range, fillRange As Range, RR As Long, i As Long, j As Long
    RR = (R * CountRow)
    With MySheet
        Set SourceRange = .Rows(FirstRow).Resize(CountRow)
        Set fillRange = .Rows(FirstRow).Resize(RR)
        SourceRange.AutoFill fillRange, xlFillDefault
        For i = FirstRow To (FirstRow + RR - 1) Step CountRow
            j = (i - FirstRow) / CountRow + 1
            .Shapes("School_Logo").Copy
            .Cells(i + 1, "O").PasteSpecial xlPasteAll
            .Shapes(.Shapes.Count).Name = "LH_Logo_" & j
        Next i
        .PageSetup.PrintArea = .Range("B" & FirstRow).Resize(RR, CountColumn).Address
    End With
End Sub

 

Also modify the following

Sub Kh_Picture_Delete(MySh As Worksheet)
    On Error Resume Next
        Dim shp As Shape
        For Each shp In MySh.Shapes
            If shp.Name Like "KHK_*" Or shp.Name Like "LH_Logo_*" Then
                shp.Delete
            End If
        Next shp
    On Error GoTo 0
End Sub

 

[علي بن علي]

lionheart استاذي الفاضل

انا لست خبير بالإكواد

هل يمكنك التعديل على الشيت المرفق بحسب المطلوب تنفيذة . ثم رفعه مجددا

مع خالص تقديري وشكري لشخصكم الكريم

 

استاذي الفاضل اضافة اخيرة اذا كان بالإمكان

انا لدي فورم يدرج الشعار او الصورة الى الشيت

ويسمي الصورة بالتسمية sam 

واي صورة ارفقها يقوم الفورم بحذف الصورة القديمة واستبدلها بالجديده وبنفس التسمية sam

هل يمكن جعل الاكواد تتعرف على الصورة بحسب اسمها

اقصد عند تغيير شعار الصورة في اي وقت المطلوب ان  تتعامل الاكواد مع الصوره للشعار بدون اي مشاكل بحسب تسميتها او اي شي اخر

المهم عند تغيير الصورة ان لا يتوقف عمل التعبئة للشعار على الشهائد

 

اذا كان هذا بالإمكان استاذي الفاضل

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

وجزاك الله الف خير ووفقك في الدنيا والأخرة

شكرا جزيلاً مرة ثانية 

[lionheart]

Wait for someone to attach the file for you. I don't attach files

You have to apply the steps by yourself. Sorry for that

[علي بن علي]

thanks

[ابوحبيبه]

السلام عليكم

العمل بسيط ... وتعليمات ا/ lionheart  سهلة 

تفضل اخي ...

نسخة من اضافة صورة شعار لجميع الشهائد.xlsm

[علي بن علي]

لدي في النموذج ٤ شهائد 

ولكنه لا يضهر في كل ورقة سوى ٢ شعار

مع ال٤ شهائد

يظهرها في الشهاده الاولى والثانية

والبقية ليس بها اي شعار

[ابوحبيبه]

السلام عليكم 

الكود شغال عندي تمام ...

ودي النتيجة 

 

[علي بن علي]

هل يمكنك ازالة المربعات الزرقاء التي امام الشعار 

اذا امكن ذلك

مع جزيل والشكر والتقدير

[ابوحبيبه]

تفضل ...

نسخة من اضافة صورة شعار لجميع الشهائد (1).xlsm

[ابوحبيبه]

....

واليك طريقة ثانية . في ورقة جديدة " الشهادات (2) "

لن تحتاج فيها الى تعبئة الصورة 

 

شعار لجميع الشهادات_جديد .xlsm

 

[علي بن علي]

تسلم استاذنا الفاضل الف الف شكر

وفقك الله واسعدايامك .