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]

Sağ üstbilgi ye sağa dayalı olarak yazdığınız metni, sola dayalı resme dönüştürüyor.

Sub hizalı()
 Set shp = ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 0, 0, 0, 0)
   shp.Select
   Selection.ShapeRange.Line.Visible = msoFalse
    With shp.TextFrame
       .AutoSize = True
    .Characters.Text = ActiveSheet.PageSetup.RightHeader
        .MarginLeft = 0
        .MarginRight = 0
        .MarginTop = 0
    End With
    dosyaYolu = ThisWorkbook.Path & "\res.jpg"
    shp.Copy
    Set chObj = ActiveSheet.ChartObjects.Add(Left:=0, Top:=0, Width:=shp.Width, Height:=shp.Height)
      chObj.ShapeRange.Line.Visible = msoFalse
    With chObj
        .Select
        .Chart.Paste
      .Chart.Export Filename:=dosyaYolu, FilterName:="JPG"
End With
 ActiveSheet.PageSetup.RightHeaderPicture.Filename = dosyaYolu
 chObj.Delete
    shp.Delete
ActiveSheet.PageSetup.RightHeader = "&G"
Kill dosyaYolu
End Sub

 

[mustafa]

Ö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

Üstat elinize sağlık, teşekkür ederim fakat kodu nereye ekleyeceğimi bilemedim.

 

[mustafa]

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.

Korhan bey, dosyaya alt bilgi de eklemek istiyorum. Header sayfasına alt bilgi ekledim. Yardımcı olursanız çok memnun olurum.

 

[Korhan Ayhan]

Deneyiniz.

 

[mustafa]

Çok teşekkür ederim, emeğinize sağlık.

 

[alicimri]

yukarıda önerdiğim kodu güncelledim

 

[mustafa]

yukarıda önerdiğim kodu güncelledim

Üstat kodu nereye eklemem gerekiyor?