[Yardım]  Userform image içerisinde grafik görüntüleme

Kulanıcı arayüz formu

Userform image içerisinde grafik görüntüleme

İleti#1)  melisaladin » 16 May 2019 09:21

Merhaba, Excel sayfasında oluşturduğum grafiği Vba Userformunda nasıl gösterebilirim acaba ?
Kullanıcı avatarı
melisaladin
Yeni Başlamış
 
Kayıt: 12 Nis 2019 13:06
Meslek: öğrenci
Yaş: 23
İleti: 15
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: İstanbul

Cevap: Userform image içerisinde grafik görüntüleme

İleti#2)  Orion1 » 16 May 2019 13:12

Dosyanız ektedir.
D:\ Kök dizini olması gerekiyor.
Buyurun.:cool:
Kod: Tümünü seç
Private Sub CommandButton1_Click()
    With Worksheets("Sayfa1")
        .ChartObjects(1).Activate
            ActiveChart.Export ("D:\MyChart.jpg")
            UserForm1.Image1.PictureSizeMode = fmPictureSizeModeStretch
            UserForm1.Image1.Picture = LoadPicture("D:\MyChart.jpg")
            Kill ("D:\MyChart.jpg")
    End With

End Sub
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Orion1
Siteye Alışmış
 
Adı Soyadı:Evren Gizlen
Kayıt: 18 Tem 2008 20:51
Meslek: inşaat teknikeri
İleti: 430
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Türkiye

Cevap: Cevap: Userform image içerisinde grafik görüntüleme

İleti#3)  melisaladin » 16 May 2019 13:43

Orion1 yazdı:Dosyanız ektedir.
D:\ Kök dizini olması gerekiyor.
Buyurun.:cool:
Kod: Tümünü seç
Private Sub CommandButton1_Click()
    With Worksheets("Sayfa1")
        .ChartObjects(1).Activate
            ActiveChart.Export ("D:\MyChart.jpg")
            UserForm1.Image1.PictureSizeMode = fmPictureSizeModeStretch
            UserForm1.Image1.Picture = LoadPicture("D:\MyChart.jpg")
            Kill ("D:\MyChart.jpg")
    End With

End Sub

Hallettim. Çok teşekkürler.
Kullanıcı avatarı
melisaladin
Yeni Başlamış
 
Kayıt: 12 Nis 2019 13:06
Meslek: öğrenci
Yaş: 23
İleti: 15
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: İstanbul

Cevap: Cevap: Cevap: Userform image içerisinde grafik görünt

İleti#4)  Orion1 » 16 May 2019 13:52

melisaladin yazdı:
Orion1 yazdı:Dosyanız ektedir.
D:\ Kök dizini olması gerekiyor.
Buyurun.:cool:
Kod: Tümünü seç
Private Sub CommandButton1_Click()
    With Worksheets("Sayfa1")
        .ChartObjects(1).Activate
            ActiveChart.Export ("D:\MyChart.jpg")
            UserForm1.Image1.PictureSizeMode = fmPictureSizeModeStretch
            UserForm1.Image1.Picture = LoadPicture("D:\MyChart.jpg")
            Kill ("D:\MyChart.jpg")
    End With

End Sub

Hallettim. Çok teşekkürler.

Rica ederim.
İyi çalışmalar. :cool:
Kullanıcı avatarı
Orion1
Siteye Alışmış
 
Adı Soyadı:Evren Gizlen
Kayıt: 18 Tem 2008 20:51
Meslek: inşaat teknikeri
İleti: 430
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Türkiye

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

Forum UserForm

Online Kullanıcılar

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

Bumerang - Yazarkafe