Merhaba, exceldeki bir grafiği resim olarak kopyalamak için aşağıdaki kodu yazdım, bu hatayı alma sebebim nedir? Teşekkürler..
Sub pastespecial1()
ActiveChart.ChartArea.copy
Range("H2").Select
ActiveSheet.pastespecial Format:="Picture (PNG)", Link:=False, _
DisplayAsIcon:=False
End Sub
Desteğiniz için teşekkür ederim ancak kullanmış olduğum yöntem aynısı inanılmaz kasıyor sayfa sayısı ve logo sayısı fazla olduğu için 400 sayfada 2 şer tane logo var.
...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 onu userform'a alıyor onu istemiyorum, bütün işlemler dosya içinde olmalı, bu konuda yardımcı olursanız sevinirim.
...Application.ScreenUpdating = False
Application.EnableEvents = False
Dim fso As Object, Evn As Object, renk As Byte, mypicture As Shape
Set Evn = CreateObject("Scripting.Dictionary")
Set fso = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
For Each i In...
...etmiyor, neden olduğu konusunda fazla uğraşamadım.
Private Sub CommandButton1_Click()
'Siteden barkot resmi aktarıyor.
ActiveSheet.Shapes.AddPicture "https://barcode.tec-it.com/barcode.ashx?data=" & TextBox1.Value & "&code=Code128&dpi=96&dataseparator=", msoFalse, msoTrue, 50, 50, 100, 50
'...
Aynen dediğiniz gibi oldu hocam 😊 kapatıp açılınca resimler kayboldu. Aslında dosya masaüstünde duruyor ama. Yine de kayboldu. Yolu yokmu.
En azından yazdır sayfasından kaybolmuyor.
...Daha sonra yerleştirdiğiniz Image nesnesini bir kere tıklayarak seçiniz ve bu Image nesnesine bağlı olarak açılan Properties penceresinden Picture özelliğini bulup hemen yan tarafındaki (none) yazan yeri tıklayıp açılan pencereden daha önce ekleyip kaydettiğiniz paint dosyasının yerini...
commandbutton öğesi seçiliylen sağ tarafta properties menusu çıkar.
Picture alanından resminizi seçin
Picture Position seçeneklerinden değişiklik yapın, image ın değiştiğini görürsünüz
İyi çalışmalar
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.