Buton Uzerinde Turkçe>İngilizce

[skaan]

Merhaba;
Excel dosyamda butonlar bulunmakta. Bu butonları sayfalara linkliyorum. Yalnız Bu butonların uzerınde bulunan kısa baslıkları Turkce ve Ingılızce olarak gostermek zorundayım.
İki Adet düğme ekledim ve bu düğmelere tıkladıgımda butonların uzerınde yazan kelimeler once ingilizceye diğer butona tıkladığımda turkce ye donmeli..
Ornek olarak dosya eklıyorum sizlerde ricam bu konuda bana yardımcı olabılırmısınız..
Teşekkürler.. ve Saygılar
Skaan

 

[Huseyinkis]

Merhaba;
Excel dosyamda butonlar bulunmakta. Bu butonları sayfalara linkliyorum. Yalnız Bu butonların uzerınde bulunan kısa baslıkları Turkce ve Ingılızce olarak gostermek zorundayım.
İki Adet düğme ekledim ve bu düğmelere tıkladıgımda butonların uzerınde yazan kelimeler once ingilizceye diğer butona tıkladığımda turkce ye donmeli..
Ornek olarak dosya eklıyorum sizlerde ricam bu konuda bana yardımcı olabılırmısınız..
Teşekkürler.. ve Saygılar
Skaan

ekli kodları denermisin

Sub ing()
ActiveSheet.Shapes.Range(Array("Freeform 5")).Select
    Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = "One"
ActiveSheet.Shapes.Range(Array("Freeform 6")).Select
    Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = "Two"
Cells(1, 1).Select
End Sub

Sub trk()
ActiveSheet.Shapes.Range(Array("Freeform 5")).Select
    Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = "Bir"
ActiveSheet.Shapes.Range(Array("Freeform 6")).Select
    Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = "İki"
Cells(1, 1).Select
End Sub

 

[skaan]

Yardımlarınız için çok teşekkürler..
Sağlıcakla kalın.. İyi Günler..
Saygılar
Skaan