Soru Üst Bilgide hizalama yapamıyorum

[mustafa]

Merhabalar, elimde bir excel dosyası var, üst bilgi kısmında sağ tarafta hizalama çalışmıyor galiba. Ekli resimde göstermeye çalıştım, sağ tarafa eklediğim metni hizalamak istiyorum, bunun bir yolu var mı?

 

[tamer42]

Merhabalar, elimde bir excel dosyası var, üst bilgi kısmında sağ tarafta hizalama çalışmıyor galiba. Ekli resimde göstermeye çalıştım, sağ tarafa eklediğim metni hizalamak istiyorum, bunun bir yolu var mı?


Örnek bir dosya ekleyebilirseniz daha hızlı dönüş alırsınız...

 

[mustafa]

Dosya işyerinde kaldı, yarın ekleyeyim.

Edit: Dosyayı ekledim.

 

[Korhan Ayhan]

Merhaba,

Üst Bilgi - Alt Bilgi kısmında sol ve sağ bölümde ortalama olmuyor. Bu işlem için makro kullanabilirsiniz. Ya da sayfada belli satırları üst bilgi olarak kullanabilirsiniz.

Mesela sayfada ilk 5 satırı üst bilgi olarak dilediğiniz gibi biçimlendirip yönetmeniz daha pratik olacaktır.

Diğer çözüm yönteminde ise üst bilgide görünmesi gereken ifadeler makro yardımıyla ortalama efekti verilerek gösterilebilir. Fakat yazıcı özelliklerine göre kaymalar olabilir.

 

[Korhan Ayhan]

Bahsettiğim makro uygulaması ektedir.

Logo yerine farklı br resim kullandım. Siz kendi logonuzu ilgili bölüme yapıştırıp güncellersiniz.

 

[mustafa]

Üstat harikasınız, çok teşekkür ederim, emeğinize sağlık.

 

[alicimri]

Örnek kodda F11 hücresini kullandım, siz istediğiniz hücre/hücreleri kullanabilirsiniz.
F11 hücresine yazdığınız metni, resim olarak sağ üstbilgiye yapıştırır.

Sub hizalı()
    ActiveSheet.Range("F11").Copy
    ActiveSheet.Pictures.Paste.Select
    ad = Selection.Name
    Set shp = ActiveSheet.Shapes(ad)
    dosyaYolu = ThisWorkbook.Path & "\res.jpg"
    shp.Copy
    Set chObj = ActiveSheet.ChartObjects.Add(Left:=0, Top:=0, Width:=shp.Width, Height:=shp.Height)
    With chObj
        .Select
        .Chart.Paste
        .Chart.Export Filename:=dosyaYolu, FilterName:="JPG"
End With
    chObj.Delete
    shp.Delete
    ActiveSheet.Range("F11").ClearContents
 ActiveSheet.PageSetup.RightHeaderPicture.Filename = dosyaYolu
ActiveSheet.PageSetup.RightHeader = "&G"
Kill dosyaYolu
End Sub