[Yardım]  Buton ile resim ekleyip o resmi hücreye aktarma

Resim nesnesi

Buton ile resim ekleyip o resmi hücreye aktarma

İleti#1)  YazılımMerakı » 14 May 2018 14:48

Merhaba. Kayıt formu yapıyorum da her şeyi yaptım fakat resim alanın altına bir buton eklemek istiyorum. O butona tıkladığımda masaüstünden bir resim seçip o resim de excelde ki hücreye aktarmak istiyorum bunu nasıl yapabilirim?
Kullanıcı avatarı
YazılımMerakı
 
Kayıt: 13 May 2018 11:37
Meslek: Öğrenci / Bilgisayar Programcılığı
Yaş: 24
İleti: 4
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Kocaeli

Cevap: Buton ile resim ekleyip o resmi hücreye aktarma

İleti#2)  kayin.atakli » 25 Eyl 2019 11:18

Merhaba,
Bunu ben de merak ediyorum. Buton ile diskteki bir resmi seçiyorum, ancak bunu hücreye aktardığım zaman sayı olarak aktarıyor. Fotoğrafı hücreye alamıyorum.
Kullanıcı avatarı
kayin.atakli
 
Kayıt: 25 Eyl 2019 11:05
Meslek: İnşaat Mühendisi
Yaş: 38
İleti: 1
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul / Kartal

Cevap: Buton ile resim ekleyip o resmi hücreye aktarma

İleti#3)  mehm235 » 01 Arl 2019 12:45

merhaba bu konuya cevap alınamamış. bu konuyla ilgili benim de bir sorum olacak. aşağıdaki kod ile resim çağırabiliyorum fakat activecell yerine sabit bir hücre belirlemek istiyorum. yardımcı olursanız sevinirim.
Kod: Tümünü seç
Private Sub CommandButton2_Click()
    Dim Emplacement As Range
    Dim Img As Variant
    Dim XRatio As Double
    Dim YRatio As Double
    Dim adr     As String
   
    adr = Selection.Address
   
    If Application.Dialogs(xlDialogInsertPicture).Show Then
        Set Emplacement = ActiveCell
        Set Img = ActiveSheet.DrawingObjects(ActiveSheet.Shapes.Count)
       
        XRatio = Range(adr).Width / Img.Width
        YRatio = Range(adr).Height / Img.Height
       
        With Img
            .ShapeRange.LockAspectRatio = msoFalse
            .Left = ActiveCell.Left + 1
            .Top = ActiveCell.Top + 1
            .Placement = xlMoveAndSize
        End With
       
        If (XRatio < YRatio) Then
            Img.Width = (Img.Width * XRatio) - 1
            Img.Height = (Img.Height * XRatio) - 1
        Else
            Img.Width = (Img.Width * YRatio) - 1
            Img.Height = (Img.Height * YRatio) - 1
        End If
       
        If (Img.Width < Range(adr).Width) Then
             Img.Left = Range(adr).Left + 1 + ((Range(adr).Width - Img.Width) / 2)
        End If
    End If
End Sub

Kullanıcı avatarı
mehm235
 
Kayıt: 29 Kas 2019 15:03
Meslek: LİSANS
Yaş: 34
İleti: 1
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul

Cevap: Buton ile resim ekleyip o resmi hücreye aktarma

İleti#4)  skat » 01 Arl 2019 16:24

İyi günler bir örnek ekledim.Umarım işinizi görür.
Kullanıcı avatarı
skat
Siteye Alışmış
 
Adı Soyadı:SITKI YAĞCI
Kayıt: 15 Haz 2008 00:17
Konum: ereğli
Meslek: I. Kademe Vardiya amiri/Yönetici
Yaş: 45
İleti: 227
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Kdz.Ereğli

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Buton ile resim ekleyip o resmi hücreye aktarma

İleti#5)  skat » 01 Arl 2019 16:25

işte örnek
Kullanıcı avatarı
skat
Siteye Alışmış
 
Adı Soyadı:SITKI YAĞCI
Kayıt: 15 Haz 2008 00:17
Konum: ereğli
Meslek: I. Kademe Vardiya amiri/Yönetici
Yaş: 45
İleti: 227
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Kdz.Ereğli


Forum İmage

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe