Excel dosyasına eklediğim yeni resimlerin boyutunun otomatik olarak genişlik 6 cm yükseklik 4.5 cm olmasını istiyorum

[Sakaryalı]

Bir uygulamadan rapor çekiyoruz ve bu rapora toplam 44 adet resim ekliyoruz bir sayfaya 6 adet resim koyuyoruz ve gün içinde en az 50 defa yapıyoruz bu işlemi sizce yeni eklediğim resimleri genişlik 6 cm yükseklik 4.5 cm olarak otomatik yapabilir miyim ya da belirli hücredeki resimleri o boyuta getirebilir mi?

[a_self_lion]

Merhaba
Yapabilirsin Tabi ki de
Excel'e resim ekliyorsunuz. Bir sayfada 6 resim günde 50 defa yapıyorsanız ki oldukça fazla bir iş yükü ve zaman kaybı.
Excel'de ALT + F11 tuşlarına basın VBA açılsın. Açılan vba editörün sol tarafından insert - Module seçin ve aşağıdaki kodları bir deneyin.

Kod: Tümünü seç

Sub ResimleriBoyutlandir()
    Dim s As Shape
    Dim genislik As Double
    Dim yukseklik As Double

    ' cm cinsinden (1 cm ≈ 28.35 pt) çevir
    genislik = 6 * 28.35    ' 6 cm genişlik
    yukseklik = 4.5 * 28.35 ' 4.5 cm yükseklik

    For Each s In ActiveSheet.Shapes
        If s.Type = msoPicture Then
            s.LockAspectRatio = msoFalse ' Oran kilidini kaldır
            s.Width = genislik
            s.Height = yukseklik
        End If
    Next s

    MsgBox "Tüm resimler 6 cm x 4.5 cm boyutuna ayarlandı.", vbInformation
End Sub

excel'e dönmek için ALT + F11
Sonra
ALT + F8 tuşuna basın
"ResimleriBoyutlandır" makrosunu seçip "Çalıştır" (Run) deyin.

Saygılarımla.

[Sakaryalı]

Maalesef ekrandaki tüm resimler değişiyor bu arada yardımcı olmak isterseniz çok mutlu olurum isterseniz sa166814@gmail.com mail adresim

[a_self_lion]

Maalesef ekrandaki tüm resimler değişiyor bu arada yardımcı olmak isterseniz çok mutlu olurum isterseniz sa166814@gmail.com mail adresim

örnek dosyanızı ekler ve değişmesini istediğiniz resimlerin hangi kolonda olduğunu belirtirseniz hemen çözebiliriz.

[Sakaryalı]

örnek dosyanızı ekler ve değişmesini istediğiniz resimlerin hangi kolonda olduğunu belirtirseniz hemen çözebiliriz.

Öncelikle geç cevap verdiğim için kusuruma bakmayın lütfen.
Dosya boyutu yüksek olduğu için ekleyemedim.
Detaylı anlatsam beni daha iyi anlayabilirsiniz. Biz bir kaynak ölçüm uygulamasından ölçüm yapıyoruz ve en son rapor çekiyoruz uygulama üzerinden bizi bir Excel dosyasına atıyor resim ekliyoruz belirttiğim satırlar arasındaki resimlerin 4.5 cm yükseklik 6.0 genişlikte aslında hem o boyutta olsa ve o satırlara yükleyebilse çok güzel olacak
Üst satırlar
M N O P Q R S T U V W X
AM AN AO AP AQ AR AS AT AU AV AW AX
BM BN BO BP BQ BR BS BT AU AV AW AX
YAN SATIRLAR
18-29
60-70
110-120
152-162
202-212
244-254
294-304
336-346
386-346
428-438
478-488
520-530
570-580
612-622
662-672
Satır aralıkları bunlar şimdiden vakit ayırıp yardımcı olduğunuz için teşekkür ederim

[Sakaryalı]

Öncelikle geç cevap verdiğim için kusuruma bakmayın lütfen.
Dosya boyutu yüksek olduğu için ekleyemedim.
Detaylı anlatsam beni daha iyi anlayabilirsiniz. Biz bir kaynak ölçüm uygulamasından ölçüm yapıyoruz ve en son rapor çekiyoruz uygulama üzerinden bizi bir Excel dosyasına atıyor resim ekliyoruz belirttiğim satırlar arasındaki resimlerin 4.5 cm yükseklik 6.0 genişlikte aslında hem o boyutta olsa ve o satırlara yükleyebilse çok güzel olacak
Üst satırlar
M N O P Q R S T U V W X
AM AN AO AP AQ AR AS AT AU AV AW AX
BM BN BO BP BQ BR BS BT AU AV AW AX
YAN SATIRLAR
18-29
60-70
110-120
152-162
202-212
244-254
294-304
336-346
386-346
428-438
478-488
520-530
570-580
612-622
662-672
Satır aralıkları bunlar şimdiden vakit ayırıp yardımcı olduğunuz için teşekkür ederim

Ekran görüntüsü bu şekilde

Screenshot_2025-09-10-09-44-41-270_cn.wps.xiaomi.abroad.lite.jpg

[a_self_lion]

Merhaba

https://dosya.co/

veya başka bir upload sitesine yükleyin ordan linkini paylaşın. yada hala yapamazsanız dosyayı lütfen örnek küçük başka bir excel çalışma kitabında yaparsanız daha iyi anlaşılır olur. böyle anlamam mümkün değil gibi.

[Sakaryalı]

Merhaba

https://dosya.co/

veya başka bir upload sitesine yükleyin ordan linkini paylaşın. yada hala yapamazsanız dosyayı lütfen örnek küçük başka bir excel çalışma kitabında yaparsanız daha iyi anlaşılır olur. böyle anlamam mümkün değil gibi.

https://dosya.co/86475xd6wcqb/DOC-20250910-W.xlsm.html

Buraya yükledim hocam

[a_self_lion]

Merhaba aşağıdaki dosyayı indirip dener misiniz?

https://dosya.co/mwxipc1zo4dx/DOC-20250 ... .xlsm.html


Excel'de ilgili sayfayı aç,
Makroyu çalıştır (Alt + F8 > çalıştır).

[a_self_lion]

Merhaba
deneme şansınız oldu mu

[Sakaryalı]

Merhaba
deneme şansınız oldu mu

Üstadım yapay zeka ile uzun uğraşlar sonucu otomatik rapor içindeki numaradan dosyayı bulup istediğim yerlere istediğim boyutta resimleri atayan bir makro geliştirdim özellikle claude ve manus ile yardımınız için teşekkür ederim