Resimleri Silme

[manly]

Ek'te gönderdiğim excel dosyasını çalıştırıp giriş menüsüne tıkladığımızda açılan form üzerinde combobox ile çağırdığımız resmi image üzerine aktarıyoruz. Sonra sayfaya aktar dediğimizde sayfaya aktarıyor. Sorun şu işimiz bittikten sonra resimlerin silinmesini istiyorum. Fakat su an her resmi üst üste ekliyor.

 

[Haluk]

CommandButton kodlarınızı aşağıdakilerle değiştirip, çalıştırın.
Gerekli düzenlemeler kırmızı satırlarda belirtilmiştir.

Private Sub CommandButton5_Click()
    [COLOR=red][B]On Error Resume Next
    ActiveSheet.OLEObjects("MyImage1").Delete[/B][/COLOR]
    
    Set nesne = ActiveSheet.OLEObjects.Add(classtype:="Forms.Image.1", Width:=300, Height:=80)
    [COLOR=red][B]nesne.Name = "MyImage1"[/B][/COLOR]
    nesne.Top = Cells(6, "E").Top: nesne.Left = Cells(6, "E").Left
    nesne.Height = Cells(6, "E").Height: nesne.Width = Cells(6, "E").Width
    ActiveSheet.OLEObjects(nesne.Name).Object.PictureSizeMode = 1
    ActiveSheet.OLEObjects(nesne.Name).Object.Picture = Me.Image1.Picture
End Sub
'
Private Sub CommandButton6_Click()
    [COLOR=red][B]On Error Resume Next
    ActiveSheet.OLEObjects("MyImage2").Delete[/B][/COLOR]
    
    Set nesne = ActiveSheet.OLEObjects.Add(classtype:="Forms.Image.1", Width:=300, Height:=80)
    [COLOR=red][B]nesne.Name = "MyImage2"[/B][/COLOR]
    
    nesne.Top = Cells(6, "I").Top: nesne.Left = Cells(6, "I").Left
    nesne.Height = Cells(6, "I").Height: nesne.Width = Cells(6, "I").Width
    ActiveSheet.OLEObjects(nesne.Name).Object.PictureSizeMode = 1
    ActiveSheet.OLEObjects(nesne.Name).Object.Picture = Me.Image1.Picture
End Sub
'
Private Sub CommandButton7_Click()
    [COLOR=red][B]On Error Resume Next
    ActiveSheet.OLEObjects("MyImage3").Delete[/B][/COLOR]
    
    Set nesne = ActiveSheet.OLEObjects.Add(classtype:="Forms.Image.1", Width:=300, Height:=80)
   [B][COLOR=red] nesne.Name = "MyImage3"[/COLOR][/B]
    
    nesne.Top = Cells(6, "M").Top: nesne.Left = Cells(6, "M").Left
    nesne.Height = Cells(6, "M").Height: nesne.Width = Cells(6, "M").Width
    ActiveSheet.OLEObjects(nesne.Name).Object.PictureSizeMode = 1
    ActiveSheet.OLEObjects(nesne.Name).Object.Picture = Me.Image1.Picture
End Sub
'
Private Sub CommandButton8_Click()
   [B][COLOR=red] On Error Resume Next
    ActiveSheet.OLEObjects("MyImage4").Delete
    [/COLOR][/B]
    Set nesne = ActiveSheet.OLEObjects.Add(classtype:="Forms.Image.1", Width:=300, Height:=80)
   [COLOR=red][B] nesne.Name = "MyImage4"[/B][/COLOR]
    
    nesne.Top = Cells(6, "Q").Top: nesne.Left = Cells(6, "Q").Left
    nesne.Height = Cells(6, "Q").Height: nesne.Width = Cells(6, "Q").Width
    ActiveSheet.OLEObjects(nesne.Name).Object.PictureSizeMode = 1
    ActiveSheet.OLEObjects(nesne.Name).Object.Picture = Me.Image1.Picture
End Sub

.

 

[manly]

Teşekkür ederim.

 

[Haluk]

Kolay gelsin ....

.