Sorgu için arama sonuçları: chartobjects+beyaz

Merhaba arkadaşlar elimde bir kod var kod sorunsuz olarak Excel'de ki sayfayı masaüstündeki klasöre kaydediyor ancak göründüğü şekilde değil boş beyaz bir sayfa olarak kaydediyor kodun neresinde hata var? Bu kod Excel 2016'da çalışmıyor Sub SaveRangeAsImageAndAppendData() Dim ws As...

üstadım kod çalıştı eline sağlık ama 5.fotoğraftan sonrasında sadece beyaz bir kare çıkıyor birde pikselleri aşırı kötü oldu zor gözüküyor resim

Sub foto() Dim masaustu As String Dim ad As String Dim yol As String Dim caart As Chart Dim jipeg As Range Dim x As Long masaustu = "C:\Users\sami\" ad = "test" For x = 1 To 2000 If Dir(masaustu & ad & x & ".PNG") = "" Then yol =...

Korhan bey , ilginiz için teşekkür ederim. verdiğiniz linktekilerin bir kısmı hücrelerdeki resimleri kaydediyor, emin değilim ama bir tanesi benim işim görecek gibi , kodlara fazla aşina değilim. bundada nasıl yaptıysam ilkinde kayıtlı kalem resmini ilgili klasöre kalem resmi olarak kaydetti...

İyi Bayramlar, Excel sayfamı masaüstüne kayıt etmek istiyorum. Aşağıda bulunan kod çalışıyor yalnız beyaz bir sayfa olarak kayıt ediyor sebebi nedir? Sub foto() Dim obce As Object Dim caart As Chart Dim jipeg As Range masaustu = CreateObject("WScript.Shell").specialfolders("Desktop") ad =...

Selam Arkadaşlar, Belirli bir alandaki tanımlanmış hücreleri resim olarak belirli bir hedefe belirli bir isimde kaydetmeyi sitede aradım ancak ya hata ile yada boş beyaz bir sayfa ile karşılaştım. Bu sebepten dolayı globalde bir arama yaparak bir iki kodu birleştirerek bir çalışma yaptım...

Excel calisma sayfasinin A1-Z100 hucreleri arasinin ekran resmini alip istenilen klasore jpg olarak yapistirmak istiyorum fakat resim tamamen beyaz olarak bos kaydediliyor. Sorunun cozumu sizce ne olabilir? Sub SaveScreenshotAsJPG() 'Get the current active sheet Dim mySheet As...

Grafiği kopyaladıktan sonra aktif sayfada aşağıdaki kodu çalıştırırsanız grafik kaynağı güncellenecektir. Dosyanızda ALT+F11 tuşlarına basınız. Karşınıza kod editörü açılacaktır. INSERT menüsünden Module seçeneğini seçiniz. Karışınıza beyaz bir pencere açılacaktır. Önerdiğim kodu bu alana...

Merhaba arkadaşlar, Sub foto() Dim obce As Object, caart As Chart, jipeg As Range, yol As String, ds As Object Set ds = CreateObject("Scripting.FileSystemObject") Sheets("yrt").Select yol = ThisWorkbook.Path & "\" & Range("N4").Value & ".jpeg" If...

merhaba ; excellde resim olarak kaydettiğim excell dosyanı office 2019 da kullanamıyorum. resimler beyaz boş olarak akydetmektedir. kod nasıl düzeltebilriz. Private Sub CommandButton2_Click() Dim objTemp As Object Dim chtMyChart As Chart Range("B8").Copy Set objTemp =...