Add + Delete Picture

[Lecay]

Arkadaşlar selamlar,

Makroda yer alan adresten koda göre resim ekleme ve silme işlemi gerçekleştirmek istiyorum.
Bir noktaya kadar geldim. Silme çalışıyor fakat ekleme çalışmıyor. Rica etsem yardım edebilir misiniz ?

 

[Lecay]

destek olabilecek yok mu ?

 

[Lecay]

++++

 

[Haluk]

Tek resim için fikir versin diye ekliyorum, kendinize göre geliştirirsiniz...

Sub SerdarPictureCome()
    Dim CodeX As Variant, yol As String
    
    CodeX = Range("D7")
    yol = "https://img-morhipo.mncdn.com/productimages/iii/" & CodeX & "/[img][5][1].jpg"
    
    Range("B7").Select
    
    On Error GoTo ErrHandler:
    
    Set myPic = ActiveSheet.Pictures.Insert(yol)
    myPic.Left = Range("B7").Left + 10
    myPic.Height = Range("B7").Height
    
ErrHandler:
    If Err Then
        Range("B7") = "URL bulunamadı!"
    Else
        MsgBox "Completed"
    End If
End Sub

.

 

[Lecay]

Tek resim için fikir versin diye ekliyorum, kendinize göre geliştirirsiniz...

Sub SerdarPictureCome()
    Dim CodeX As Variant, yol As String
   
    CodeX = Range("D7")
    yol = "https://img-morhipo.mncdn.com/productimages/iii/" & CodeX & "/[img][5][1].jpg"
   
    Range("B7").Select
   
    On Error GoTo ErrHandler:
   
    Set myPic = ActiveSheet.Pictures.Insert(yol)
    myPic.Left = Range("B7").Left + 10
    myPic.Height = Range("B7").Height
   
ErrHandler:
    If Err Then
        Range("B7") = "URL bulunamadı!"
    Else
        MsgBox "Completed"
    End If
End Sub

.

Çok teşekkürler Haluk bey, kod tam istediğim gibi.

 

[Lecay]

Tek resim için fikir versin diye ekliyorum, kendinize göre geliştirirsiniz...

Sub SerdarPictureCome()
    Dim CodeX As Variant, yol As String
   
    CodeX = Range("D7")
    yol = "https://img-morhipo.mncdn.com/productimages/iii/" & CodeX & "/[img][5][1].jpg"
   
    Range("B7").Select
   
    On Error GoTo ErrHandler:
   
    Set myPic = ActiveSheet.Pictures.Insert(yol)
    myPic.Left = Range("B7").Left + 10
    myPic.Height = Range("B7").Height
   
ErrHandler:
    If Err Then
        Range("B7") = "URL bulunamadı!"
    Else
        MsgBox "Completed"
    End If
End Sub

.

@Haluk bey merhaba,

Yol kısmını iki farklı adres olacak şekilde nasıl geliştirebiliriz ? Yani bu adreste bulamadıysan şu adrese de bak gibi ?

 

[Lecay]

@Haluk bey yardım edebilir misiniz ?