excel gruplandırılmış nesnelerin exportu

[crpzz37]

Selamun aleyküm öncelikle yardımınız için teşekkürler bu
çalışmadaki amacımı anlatayım
bu çalışma KUR 'AN kursunda kullanılıcaktır . çıkart tusu ile yeşil ekranı dosyanın oldugu yere
jpg olarak cıkartabılıyorum ama sorunum şu üzerinde her hangi bir yere yan
taraftan harflerden birini koydugumda ve gruplandırdıgımda onunla beraber çıkartamıyorum
yine sadece yeşil arka plan çıkıyor
bu konuda yardıma ihtiyacım var saolun
allah razı olsun

 

[Asri]

Umarım istediğiniz gibi olmuştur.

Gruplama yapmanıza gerek yok. Sadece zemin en arkada ve harfler de en üstte olsun yeterli.

Set oRng = oWs.Range("B1:AX80") burada kayıt alanını arttırıp azaltabilir siniz.

Ekran görüntüsü %100 iken kayıt yaparsanız, daha yüksek çözünürlükle görüntü elde etmiş olursunuz.

Dosya ektedir.

Private Sub CommandButton1_Click()
 Dim oWs As Worksheet
 Dim oRng As Range
 Dim oChrtO As ChartObject
 Dim lWidth As Long, lHeight As Long

 Set oWs = ActiveSheet
 Set oRng = oWs.Range("B1:AX80")

 oRng.CopyPicture xlScreen, xlPicture
 lWidth = oRng.Width
 lHeight = oRng.Height

 Set oChrtO = oWs.ChartObjects.Add(Left:=0, Top:=0, Width:=lWidth, Height:=lHeight)

 oChrtO.Activate
 With oChrtO.Chart
  .Paste
  .Export Filename:=ActiveWorkbook.Path & "\Resim.jpg", Filtername:="JPG"
 End With

 oChrtO.Delete
End Sub

 

[crpzz37]

kardeşim ALLAH senden razı olsun
bu işte emeğin geçti büyük yardımda bulundun.

 

[Asri]

kardeşim ALLAH senden razı olsun
bu işte emeğin geçti büyük yardımda bulundun.

Allah sizden de razı olsun hocam,

Bu programı daha da geliştirmek ve bu işte benim de bir katkım olsun isterim. Bu iş benim için çok karlı bir yatırım olur : ))

Kullanım amacını tam olarak bilemiyorum ama,
ilk etap da düzgün yazı yazabilmek için yeşil alana yatay çizgiler çizilebilir.

Bu işlemi tam olarak ne için kullanıyorsunuz.

 

[Asri]

Tahta şekilden değil hücrelerden oluşturuldu.
Tahta rengi, çizgi rengi ve çizgilerin satır aralıkları ayarlar sayfasından değiştirilebilir.

Resim kaydetme özelliği aynı şekilde çalışacaktır.

Ekli dosyayı inceleyiniz.