Excel Makro ile Toplu Resim Değiştirme

[owenefe]

Arkadaşlar
excel 1, 2,...... böyle sayfalarım var ve o sayfalarda image1 ve image2 resimleri var bunlar 2 farklı firmaya ait.
Bn bu resimleri exceldeki başka resim ile değiştirmek istiyorum excel içinden olmuyorsa resmi masaüstüne kaydedip ordanda değiştirebilirim.
Kıca öğrenmek istediğim, excelde herhangi bir sayfada bulunan image1 içerigini başka bir resim ile nasıl değiştirebilirim ve birde ayrı olarak yine herhangi bir sayfadaki image1 nesnesini nasıl silebilirim sayfa ismi belirterek

 

[BaY_KaPTaN]

Ben kendi excelimde, başlıklı kağıda yapılan dilekçeler için kullandığım kodu size vereyim.
Resmi ekleyeceğiniz her sayfaya bu kodu eklemek gerek.

Sayfa aktif olduğunda kodda işaretlediğim dosya yolunda A2 hücresinde yazan firma adıyla olan resim dosyasını A1 hücresine ekliyor.

Private Sub Worksheet_Activate()
ActiveSheet.Pictures.Delete ' Sayfada bulunan resmi 2 defa çıkmaması için sayfadaki resmi önce siler
Dim ws As Worksheet
Dim imagePath As String
Dim imgLeft As Double
Dim imgTop As Double

Set ws = ActiveSheet
imagePath = "C:\Users\USER\Desktop\" & Range("A2").Value & ".jpg"
imgLeft = Range("A1").Left
imgTop = Range("A1").Top

ws.Shapes.AddPicture _
    Filename:=imagePath, _
    LinkToFile:=msoFalse, _
    SaveWithDocument:=msoTrue, _
    Left:=imgLeft, _
    Top:=imgTop, _
    Width:=-1, _
    Height:=-1
End Sub

 

[muygun]

Merhaba;
Alternatif:
masaüstüne (Yada Bu dosyanın bulunduğu yerde) resim adlı bir klasör açın.
Sayfalarda 1. satırdaki mavi alanlara resim adı yazarak deneyin.
İyi çalışmalar.

 

[owenefe]

Ben kendi excelimde, başlıklı kağıda yapılan dilekçeler için kullandığım kodu size vereyim.
Resmi ekleyeceğiniz her sayfaya bu kodu eklemek gerek.

Sayfa aktif olduğunda kodda işaretlediğim dosya yolunda A2 hücresinde yazan firma adıyla olan resim dosyasını A1 hücresine ekliyor.

Private Sub Worksheet_Activate()
ActiveSheet.Pictures.Delete ' Sayfada bulunan resmi 2 defa çıkmaması için sayfadaki resmi önce siler
Dim ws As Worksheet
Dim imagePath As String
Dim imgLeft As Double
Dim imgTop As Double

Set ws = ActiveSheet
imagePath = "C:\Users\USER\Desktop\" & Range("A2").Value & ".jpg"
imgLeft = Range("A1").Left
imgTop = Range("A1").Top

ws.Shapes.AddPicture _
    Filename:=imagePath, _
    LinkToFile:=msoFalse, _
    SaveWithDocument:=msoTrue, _
    Left:=imgLeft, _
    Top:=imgTop, _
    Width:=-1, _
    Height:=-1
End Sub

Hocam çok teşekkür ederim peki bunu sayfa ismi olarak belirleyebileceğim birden fazla sayfa için tek sefeder kullanabilirmiyim. Excelin tamamına değil ama en azından iste sayfaa sayfab sayfac için gibi

 

[BaY_KaPTaN]

Hocam çok teşekkür ederim peki bunu sayfa ismi olarak belirleyebileceğim birden fazla sayfa için tek sefeder kullanabilirmiyim. Excelin tamamına değil ama en azından iste sayfaa sayfab sayfac için gibi

Uygulamak istediğiniz sayfanın koduna yapıştırırsanız o sayfa aktif olunca değiştirir.

Benim kullanımım şöyle,
ANASAYFA kısmında yazdığım veriye bakıyor ilgili sayfalar. Sayfayı aktif ettiğimde (Seçtiğimde) Anasayfadaki firma adına göre başlık resmi çekmiş oluyor.