HÜCREYİ SUTUN ÇİZGİSİYLE BERABER EĞİK YAZDIRMA

[akumert]

ekteki resimde olduğu gibi başlıkların eğik olarak sütun çizgileriyle beraber yazdırmasını istiyorum.
hücre biçimlendirmeden metin yönünü seçtiğim zaman sütunla beraber eğiklik kazanmıyor sadece içindeki metin yönü değişiyor yardımcı olursanız sevinirim.

 

[muhasebeciyiz]

. Başlıkları Eğik Yazdırma:

• Hücreleri Seçin: Başlıkların yer aldığı hücreleri seçin.
• Yazı Tipi Ayarları: Ana Sekmede bulunan "Yazı Tipi" sekmesinden, yazı tipi kutusundan istediğiniz eğik yazı tipini seçin.
• Eğiklik Ayarı: Aynı sekmede bulunan "Eğik" butonuna tıklayarak veya klavyede "Ctrl+I" tuşlarına basarak başlıkları istediğiniz açıda eğik hale getirebilirsiniz.

2. Sütun Çizgileri Ekleme:

• Hücreleri Seçin: Başlıkların yer aldığı sütunları seçin.
• Ana Sekme: Ana Sekmede bulunan "Anasayfa" sekmesine gidin.
• Sınırlar: "Sınırlar" sekmesinden, "Tüm Sınırlar" seçeneğini seçin.
• Sütun Çizgileri: Bu işlem, seçtiğiniz sütunlara dikey çizgiler ekleyecektir.

Bu iki işlemi sırayla gerçekleştirerek, Excel'de başlıklarınızı eğik olarak ve sütun çizgileriyle birlikte yazdırabilirsiniz.

Bu kod kısmen işini belki görür deneyiniz

Sub Test()
Dim ws As Worksheet
Dim rng As Range
Dim cell As Range

Set ws = ActiveSheet
Set rng = ws.Range("A1:C1")

For Each cell In rng
cell.Orientation = 45

With cell.Borders
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 0
End With
Next cell
End Sub