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...
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 =...
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.