• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

  • Forum yazılımı güncelenmiştir.

    Beklenmedik durumlar görürseniz lütfen yönetime iletin.

Satır ve sutunun genişliğine göre foto ekle

  • Konbuyu başlatan Konbuyu başlatan turgayzeynep
  • Başlangıç tarihi Başlangıç tarihi
T

turgayzeynep

Misafir
C2 satır ve sutunun genişliğine göre sutunun içerisine foto eklemek için tıklayınız ibaresini makro ile yapabilirmiyim yardımcı olurmusunz
 
sanırım isteğinizi excel örnek çalışma sayfasıyla sorsanız daha kolay anlaşılacak.
 
Merhaba,
ChatGPT'ye sordum, yanıtı :

Kod: 
Sub ResimEkle()

    Dim ws As Worksheet
    Dim c2Genislik As Double
    Dim c2Yukseklik As Double
    Dim resimSol As Double
    Dim resimUst As Double
    Dim resim As Picture

    ' Çalışma sayfasını belirleyin
    Set ws = ThisWorkbook.Sheets("Sayfa1")  ' Sayfa adınızı uygun şekilde değiştirin

    ' C2 hücresinin genişliğini ve yüksekliğini alın
    c2Genislik = ws.Range("C2").Width
    c2Yukseklik = ws.Range("C2").Height

    ' Resmin sol ve üst pozisyonunu belirleyin (örneğin, C2 hücresinin sol üst köşesi)
    resimSol = ws.Range("C2").Left
    resimUst = ws.Range("C2").Top

    ' Resmi ekleme
    Set resim = ws.Pictures.Insert("C:\abc.jpg")  ' Resim dosya yolunu uygun şekilde değiştirin

    ' Resmi boyutlandırma
    With resim
        .ShapeRange.LockAspectRatio = msoFalse
        .Width = c2Genislik
        .Height = c2Yukseklik
        .Top = resimUst
        .Left = resimSol
    End With
End Sub
 
Hocam Size ulaşabileceğim bir numara verin de WhatsApp üzerinden göndereyim matbu evrakı Siz gerekli düzenleme yapıp bana atar mısınız
 
Kod içindeki açıklamaları dikkate aldınız mı?
 
peki bu durumda ne bekliyordunuz? sonuç normal değil mi?

Kod: 
Set resim = ws.Pictures.Insert("C:\abc.jpg")  ' Resim dosya yolunu uygun şekilde değiştirin
burada açıklama var, bi zahmet oradaki resmin yolunu ve adını da siz gireceksiniz, biz nerden bilelim?
 
Merhaba dosyayı dosya.co wetransfer.com gibi bir dosya sağlayıcısına yükleyip link paylaşabilir misiniz ?
 
Birebir atabileceğim yer varsa oradan yardımcı olursanız sevinirim
 
Merhaba,

Aşağıdaki kodları bir modüle kopyalayıp deneyiniz.

Kod: 
Sub ResimEkle()

    Dim c2Genislik As Double
    Dim c2Yukseklik As Double
    Dim resimSol As Double
    Dim resimUst As Double
    Dim resim As Picture
    Dim resimDosyasi As String
    
    resimDosyasi = ResimDosyasiSec
    
    If resimDosyasi = "" Then
        MsgBox "Resim Dosyasi Seçilmedi....", vbCritical
        Exit Sub
    End If
    
    c2Genislik = Range("C2").Width
    c2Yukseklik = Range("C2").Height

    ' Resmin sol ve üst pozisyonunu belirleyin (örneğin, C2 hücresinin sol üst köşesi)
    resimSol = Range("C2").Left
    resimUst = Range("C2").Top

    ' Resmi ekleme
    Set resim = ActiveSheet.Pictures.Insert(resimDosyasi)  ' Resim dosya yolunu uygun şekilde değiştirin

    ' Resmi boyutlandırma
    With resim
        .ShapeRange.LockAspectRatio = msoFalse
        .Width = c2Genislik
        .Height = c2Yukseklik
        .Top = resimUst
        .Left = resimSol
    End With
End Sub

Function ResimDosyasiSec() As String
 
    Dim lngCount As Long
 
    With Application.FileDialog(msoFileDialogOpen)
        .AllowMultiSelect = False   'True
        .Filters.Add "Images", "*.gif; *.jpg; *.jpeg", 2
        .Show
 
        For lngCount = 1 To .SelectedItems.Count
            ResimDosyasiSec = .SelectedItems(lngCount)
        Next lngCount
 
    End With
 
End Function
 
Hocam C2 hücresine çift tıkladığım zaman resimlerime yönlendirmesini ve orada fotoğrafı seçerek C2 hücresindeki boyuta göre enine ve boyuna genişliğine göre fotoğrafı otomatikman koymasını istiyorum ama bir türlü olmadı
 
Size birebir ulaşabileceğim bir irtibat numarası yok mu WhatsApp üzerinden göndereyim
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst