resim üzerindeki giysinin değişmesi

[bulentcigali]

iyi geceler saat 00.10 şu ana kadar uğraşıp çözemediğim bir konu var.arkadaşlar ekte sunduğum ödev uygulamasında resim üzerine elbiseler giydiriyorum ancak giydirdiğim 1.kıyafeti 2.kıyafeti giydirmeden önce silmek istiyorum ancak silemiyorum nasıl silebilirim .ben mankene giydirdiğim kıyafetleri "sağ tuş/ kes " ile silebiliyorum buda acemice bir çözüm oluyor.çok acil bir ödev olduğu için yardımlarınızı bekliyorum.teşekkürler

 

[Orion1]

Dosyanız ektedir
Makro 7 için yaptım.Diğerlerini siz yapınız.
Dosyanız ektedişr.:cooL:

Sub Makro7()
'
' Makro7 Makro
' Makro ABC tarafından 02.04.2010 tarihinde kaydedildi.
'
[B][COLOR="Blue"]For Each shps In ActiveSheet.Shapes
    If shps.Name <> "Picture 112" And shps.Name <> "Picture 113" And _
    shps.Name <> "Picture 173" And shps.Name <> "Picture 117" And _
    shps.Name <> "Picture 119" And shps.Name <> "Picture 120" And shps.Name <> "Picture 137" Then
        shps.Delete
    End If
Next[/COLOR][/B]
'
    ActiveSheet.Shapes("Picture 113").Select
    Selection.Copy
    Range("E10").Select
    ActiveSheet.Paste
    Selection.ShapeRange.IncrementLeft -99.75
    Selection.ShapeRange.IncrementTop 1.5
    Range("E10").Select
End Sub

 

[leumruk]

Merhaba,
6. ve 7. makron üzerinden örnek vererek anlatıyorum. Sen diğer makrolarına uygularsın.

    Selection.Copy
    Range("E10").Select
    ActiveSheet.Paste
    [COLOR="DarkRed"]Selection.ShapeRange.Name = "rsm[/COLOR]"

6. makroda resime tıkladığında senin makron resim oluşturuyor. Oluşan bu resme yukarıda belirttiğim kırmızı kod aracılığıyla rsm ismini verdim.
7. makronun başına ise aşağıdaki satırları ekleyerek bu resmin silinmesini sağlayarak yeni oluşturulacak resim için yer açtım.

ActiveSheet.Shapes("rsm").Delete

Kısaca tüm kodlarında bu iki satırı kullanacaksın. Kodların en başına silme kodunu, ilk kodda belirttiğim kısımlara da isim verme kodunu ekleyeceksin.

 

[leumruk]

Merhaba,
Örnek dosyada tüm makrolarına belirttiğim kodları uyguladım. Dosya ekte.

 

[bulentcigali]

sayın evren gizlen ve leumruk, bu forma yaptığınız katkılardan dolayı sizleri tebrik ediyor yardımlarınız için teşekkür ediyorum.ömür boyu hiç darda kalmayın dileklerimle.