worldart a makro eklemek

[acarselcuk1]

merhaba arkadaşlar; çalıştığım bir programda ana sayfası üzerine worldart ve bu worldart'a =bugün() formülü ekleyebilirmiyim. ilgilenen arkadaşlara şimdiden teşekkürlerimi sunuyorum.

 

[alpi]

Aşağıdaki kod ile bunu yapabilirsiniz.

    Sheets("Sayfa1").Shapes("alpi").Select
    Selection.ShapeRange.TextEffect.Text = Now

alpi yerine kendi WordArt ınızın ismini yazın.

 

[Merhum İdris SERDAR]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Shapes("WordArt 1").Select
Selection.ShapeRange.TextEffect.Text = Now
End Sub

WordArt'ın numarası neyse onu WordArt 1'in yerine yazın.

 

[Seyit Tiken]

Makrosuz Alternatif : İlgili dosya ektedir.

 

[acarselcuk1]

çözüm önerileriniz için çok teşekkür ederim. sayenizde sorunumu çözdüm. iyiki varsınız emeğinize sağlık....