Kodlar Sayfada ki Hücre Resimlerini veya Direk Resimi(Çizimi) Userforma Taşıma işlemini yapar.
Kullanım şekli :
AddressOrShapeName = Sayfada ki Resim(Çizim) ADı veya Hücre ADRESi
TargetImage = Picture si değişecek UserForm üzerinde ki Controlün ADı
Örnek Kullanım :
Call...
Merhaba,
Kodlar UserForm içine
Private Sub CommandButton1_Click()
Dim Pic As Object, File As Variant, Sht As Worksheet
Dim RngArr As Range, FlCnt&, SmFl&
ChDrive Environ("SystemDrive"): ChDir Environ("UserProfile") & "\Desktop"
Set Sht = Sheets("RESİM BİRLEŞTİR"): Set RngArr = Sht.[B10:x59]...
@muhasebeciyiz açıklama için teşekkür ederim.
o zaman şöyle bir çözüme gitmek gerekecek
nasılsa UserForm da değil Sayfada işlem yapacağımızdan
direk Şekli (Shape) kopyalayıp yapıştırıp düzenleriz.
Yeni kodlar.
Option Explicit
'...
Merhaba,
Uzun ve açıklayıcı cevabınız için çok teşekkür ederim. Fakat kullanıcılar bunu manuel tetikleme ile görmek istiyorlar. Sebebi, her tetikleme de Userform bir miktar kullanıcıyı bekletiyor, Çünkü , dosya boyutu ve yapısı gereği biraz şişkin bir dosya. O yüzden sadece düğme tetiklemesi...
Her ikisini de denemeye calısınız, dosya olmadığından hata yonetimi yapılamaz , verirse yazarsınız ya da takılmayı anlıyorsanız kendiniz onarırsınz ...
Ek fikir olarak ; onceki verileri bir database sayfasına yenilendikten sonra atar sonra da siler ve yenilerseniz, database sayfasına baglı bir...
Sayın Tamer bey tekrar merhaba,
Oluşturduğunuz kodlar ile deneme çalışmalarım gayet güzel çalıştı. Lakin gerçek verilerim ile çalışmaya başladığımda "grafik göster" butonuna tıklayıp grafiklerimin gösterileceği formu açıp açılmasını istediğim grafik butonuna bastığımda şöyle bir uyarı alıyorum...
Sayın Tamer bey,
İlginiz için çok teşekkür ederim. İstediğim şekilde oluyor kesinlikle tüm grafikler içinde kolayca çoğaltabiliyorum kodu.
Saygılarımı sunuyorum, Tamer bey.
Merhaba,
Öncelikle grafikleriniz "Grafik-1", "Grafik-2", "Grafik-3", şeklinde isimlendirmeniz gerekecektir.
ona göre userform içine aşağıdaki kodları kopyalayın
Public Sub showChart(s As Integer)
Dim sTempFile As String
Dim oChart As Chart
Me.Image1.Picture = LoadPicture("")...
Merhabalar,
Daha önceden forumda bulunan gerek örnek dosyalar ve gerekse Sayın Üstad hocalarımızın sayesinde oluşturmuş olduğum çalışma sayfamda bir hususta yardım istemekteyim.
Şöyle ki;
- Çalışma kitabımda bulunan "GRAFIK" sayfası içerisinde 8 adet grafik bulunmakta, (Grafik 1, Grafik 2...
Merhaba
Sadece UserForm açık olup Excel dosyasını gizlediğim çalışma var
Sayfaların önüne ThisWorkbook ekleyerek geçiyorum
Selection.TickLabels.NumberFormat = "0%" bu satırı dosya gizli iken geçemiyorum
"object doesn't support this property or method" hatası veriyor, dosya kapalı olduğu için...
Merhaba
Grafik sayfası için seçtiğim marj / orana göre grafik değişiyor
Yanlız sadece UserForm açık Excel kapalı olunca dosyayı bulamadığı için aynı hata burada da veriyor
Geçici olarak görünür yaptım bu defa tekrar gizlenmiyor
Nasıl çözebilirim
Private Sub Worksheet_Calculate()...
Merhaba
Aşağıdaki kod ile userform üzerindeki image nesnesine resim çektiriyorum
Bu koddan bağımsız olarak;
Örneğin A2 hücre değişmesi durumunda (bu arada hücrenin değişmesini ListBox üzerinden yapıyorum) ve image nesnesinde resim varsa silsin
Bazen resim olmayabiliyor, o nedenle var yok...
Merhaba,
Ekte test1 ve test2 adında iki ayrı örnek dosya var.
test1 dosyasında "Grafiği Göster" butonuna bastığımda, grafik Userform'da sorunsuz açılıyor. Ancak test2 dosyasında olduğu gibi, grafiği ekranda görünmeyecek şekilde sayfanın alt kısımlarına ya da sağ tarafına uzaklaştırıp "Grafiği...
Merhaba
Userform'da grafik göstermek ile ilgili daha önceki konulara bakmama rağmen kendi dosyamda kullanabileceğim bir kod bulamadım veya uyarlayamadım. Ayrıca dosya gönderemiyorum çünkü kullandığım bilgisayar şirket bilgisayarı ve kısıtlanmış.
Yapmak istediğim; sayfa1'de A sütununda tarihler...
Sayın Necdet Bey Hocam, Kusura bakmayın geç gördüm bu mükemmel çalışmanızı. Excel içeriğine girdim eklediğiniz spreadsheet leri gördüm, grafikler vs süper olmuş. Emeğinize sağlık. Fakat Userform u çalıştıramadım. "Could not set the value property Invalid property value" hatası veriyor ve ekteki...
Arkadaşlar merhaba ek'li dosyada Sayfa1'de bulunan grafiği userform'a taşımak istiyorum. Ancak grafik dinamik olmalı yani Sayfa1 'deki tablodaki değerler değiştikçe aynı anda UserForm'daki grafik'de değişsin. Bu mümkünmü ? bazı grafik çizme makrolarını inceledim Picture olarak dışarıya kaydedip...
Öncelikle grafiği temp klasöre atacaksın. Sonra userform içine eklediğin image nesnesi içine grafiği resim olarak getirteceksin.
Kodlardaki isimleri (sekme,grafik,image nesnesi) kendine göre düzenlemelisin.
Kodları bir buton altına atıp deneyebilirsin.
Set mychart =...
Arkadaşlar excel sayfasında oluşturduğum grafiği userform da image yardımıyla göstermek istiyorum ancak bu resmi dışarı almak istemiyorum. Sadece userform initialize olunca image da bu grafik gözüksün istiyorum. Kodu tam olarak nasıl yapacağımı bilmiyorum yardımcı olabilir misiniz? Teşekkürler.
mesela bu her bir grafiği ayrı ayrı sayfalara kopyalayıp bir userform içinde dört farklı butona grafik isimleri verilerek grafik göster-gizle yolu ile yapılabilir
Arkadaşlar merhaba
Excelde sayfada oluşturduğum birden fazla grafiği userform'a koşullu olarak getirmek istiyorum. Yani 1.combobox "abc" 2.combobox "23" olursa grafik "123" ü göstermek istiyorum buton yardımı ile. Grafiği image da gösterdiğim kod aşağıdaki gibidir. Koda if komutunu tam...
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.