مساعدة في استيراد وتصدير صورة PNG بدون خلفية

[حراثي تواتي]

السلام عليكم ورحمة الله وبركاته

ارجوا منكم خبراء منتدانا الغالي مساعدتي في كود يقوم باستراد  صورة من نوع PNG  وتصديرها الى مكان معين في الشيت لاستعمالها مكان الختم والتوقيع

كما هو موضح بالصورة

وجزاكم الله عنا خير الجزاء

تواتي 23.xlsm

[حراثي تواتي]

[الرائد77]

تفضل

كود استيراد الصور

Private Sub CommandButton9_Click()
Dim IMPATH As String
Dim IMNAME As String
With Application.FileDialog(msoFileDialogOpen)
.InitialFileName = ThisWorkbook.Path
.Filters.Clear
.Filters.Add JPEG, "*.JPG, .JPEG"
.Title = "ادراج صورة"
.ButtonName = "ادراج الصورة مع تحيات االرائد"
.AllowMultiSelect = False
If .Show = True Then
Me.TextBox1.Visible = True
IMPATH = .SelectedItems(1)
Me.TextBox1.Text = IMPATH
Me.Image1.Picture = LoadPicture(IMPATH)
Else
MsgBox "تم تحميل الصورة"
End If
End With
End Sub

كود نقل الصورة الى الشيت

Private Sub CommandButton10_Click()
     Dim Image As Variant
    Dim L As Single, T As Single, W As Single, H As Single
 
    L = Range("n32:r38").Left
    T = Range("n32:r38").Top
    W = Range("n32:r38").Width
    H = Range("n32:r38").Height
 
    Image = TextBox1.Value
    If Image <> False Then
        Sheet4.Shapes.AddPicture Image, True, True, L, T, W, H
    End If
End Sub

 

تواتي 23.xlsm

[حراثي تواتي]

اسعدتني كثيرا استاذنا  الرائد 77  ، فقط سيدي المحترم هل يمكن التعديل على الكود بحيث يقوم بحذف الصورة او استبدالها باخرى حتى لا تتكرر الصور في الشيت

وشكرا ايها الرائد المحترم

 

[الرائد77]

 

تفضل

اضافة زر لحدف الصورة من الشيت في الملف المرفق

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

 

غير كود التصدير الى هذا

Private Sub CommandButton10_Click()
     Dim Image As Variant
    Dim L As Single, T As Single, W As Single, H As Single
 ActiveSheet.Pictures.Delete

    L = Range("n32:r38").Left
    T = Range("n32:r38").Top
    W = Range("n32:r38").Width
    H = Range("n32:r38").Height
 
    Image = TextBox1.Value
    If Image <> False Then
        Sheet4.Shapes.AddPicture Image, True, True, L, T, W, H
    End If
End Sub

 

تواتي 23.xlsm

[حراثي تواتي]

 

عند تنفيذ كود الحذف  أصبح لا يكتفي فقط  بحذف الصورة المقصودة من الشيت وانما يحذف الصور والازرار

اين المشكل ؟

الملف مرفق للتجريب

 

تواتي 27.xlsm