Sayfadaki şekli Userform' a resim olarak almak

[pNouma]

Değerli Hocalarım merhaba,
Aktif dosyada "Sayfa1" adlı sayfada oluşturulan dikdörtgen şeklindeki şekli... "Shape1" olarak isimlendirilmiş olan şekil;

Userform içindenki Image1 nesnesi içine resim olarak almak istiyorum.

UserForm1.Image1.Picture = LoadPicture(Shape1)

yardımlarınız için şimdiden teşekkürler,
iyi Çalışmalar.

 

[Korhan Ayhan]

Merhaba,

Faydalı olabilir..

Sayfadan userform'a resim ekleme

Merhaba, Sayfa1'de yer alan "Resim 1" isimli resmi userform'da image1'de nasıl gösterebilirim.

www.excel.web.tr

 

[Biolightant]

dikdörtgen şeklindeki şekli... "Shape1"

Bu Shape1 belli bir hücre veya Hücrelerin içinde mi
yoksa bir kaç hücrenin kesişme noktalarında rast gelemi ?

Hücrenin fotosunu çekebiliyoruz da

 

[pNouma]

ç hücrenin kesişme noktalarında rast gelemi ?

Bu Shape1 belli bir hücre veya Hücrelerin içinde mi
yoksa bir kaç hücrenin kesişme noktalarında rast gelemi ?

Hücrenin fotosunu çekebiliyoruz da

Şekli belli bir hücre aralığına denk getirebiliriz, "B2:H3" hücre aralığına ayarlarız,
gerekirse hücre satır ve sütun genişliğini ayarlayarak ilgili şekli tek bir hücre içine de alabiliriz.

teşekkürler

 

[Biolightant]

Hücre aralığını istediğiniz gibi değiştirebilirsiniz.
Kodları test edip geri dönüş yapar mısınız.

Private Sub CommandButton1_Click()
    Dim FotoHucre As Range
    Set FotoHucre = Range("B2:H3") ' Hücreyi doğru seçtiğinizden emin olun

    Dim FotoAdres As String
    FotoAdres = Environ$("temp") & "\ExcelHucre.jpg"
    HucreResimleri FotoHucre
    
    Image1.Picture = LoadPicture(FotoAdres) ' UserFormda ki [ Image1 ] in resmini değiştirir
End Sub

Private Sub HucreResimleri(FotoHucre As Range)
' Orjin @Korhan Ayhan
' https://www.excel.web.tr/threads/makro-ile-huecrelere-resim-cekip-bilgisayara-aktarma.203328/#post-1140072

    Dim Grafik As Object

    ' Hücre aralığının resim olarak kopyala, yapıştır ve kes
    FotoHucre.CopyPicture xlScreen, xlBitmap
    ActiveSheet.Paste
    Selection.Cut

    ' Geçici grafik nesnesi oluştur ve resimi içine yapıştır
    Set Grafik = ActiveSheet.ChartObjects.Add(Left:=0, Top:=0, Width:=FotoHucre.Width, Height:=FotoHucre.Height)
    Grafik.Activate
    Grafik.Chart.Paste
 
    Grafik.Chart.Export Environ$("temp") & "\ExcelHucre.jpg"  ' Resmi JPG olarak kaydet
    DoEvents
    Grafik.Delete ' Geçici grafik nesnesini sil
End Sub

 

[pNouma]

Hücre aralığını istediğiniz gibi değiştirebilirsiniz.
Kodları test edip geri dönüş yapar mısınız.

 Private Sub CommandButton1_Click()
    Dim FotoAdres As String
    FotoAdres = Environ$("temp") & "\ExcelHucre.jpg"

    Dim FotoHucre As Range
    Set FotoHucre = Range("B2:H3") ' Hücreyi doğru seçtiğinizden emin olun

    HucreResimleri FotoHucre

    Image1.Picture = LoadPicture(FotoAdres)

    Kill FotoAdres
End Sub

Private Sub HucreResimleri(FotoHucre As Range)
' Orjin @Korhan Ayhan
' https://www.excel.web.tr/threads/makro-ile-huecrelere-resim-cekip-bilgisayara-aktarma.203328/#post-1140072

    Dim Grafik As Object

    ' Hücre aralığının resim olarak kopyala, yapıştır ve kes
    FotoHucre.CopyPicture xlScreen, xlBitmap
    ActiveSheet.Paste
    Selection.Cut

    ' Geçici grafik nesnesi oluştur ve resimi içine yapıştır
    Set Grafik = ActiveSheet.ChartObjects.Add(Left:=0, Top:=0, Width:=FotoHucre.Width, Height:=FotoHucre.Height)
    Grafik.Activate
    Grafik.Chart.Paste

    Grafik.Chart.Export Environ$("temp") & "\ExcelHucre.jpg" ' Resmi JPG olarak kaydet
    DoEvents
    Grafik.Delete ' Geçici grafik nesnesini sil
End Sub

Hocam destek ve yardımlarınız çok teşekkür ederim
iyi akşamlar..

 

[Biolightant]

Hocam destek ve yardımlarınız çok teşekkür ederim
iyi akşamlar..

Rica ederim kolay gelsin.