türkçe label ve buton ismini değiştirme

[adventurk]

herkese merhaba..burdan bilgilerini paylaşan herekese tşk...
benim şöyle bir derdim var bilgisayarımda..office2003 türkçe yüklü..sayfaya buton yada label eklediğimnde düğme1 etiket2 gibi türkçe isimler veriyor bunlara vbde kod eklememe rağmen çalıştıramıyorum bubnların isimlerini nasıl ingilizce yapabilirim...şimdiden tşk...

 

[Levent Menteşoğlu]

Böyle bir sorun olmaması gerekir ama ismi değiştirmek için önce değiştireceğiniz nesneyi fare ile seçili hale getirn ve aşağıdaki kod çalıştırın.

Sub addegister()
On Error Resume Next
sor = InputBox("Yeni ismi yazınız.", "İsim değişikliği")
If sor = "" Then Exit Sub
Selection.ShapeRange.Name = sor
End Sub

 

[adventurk]

Böyle bir sorun olmaması gerekir ama ismi değiştirmek için önce değiştireceğiniz nesneyi fare ile seçili hale getirn ve aşağıdaki kod çalıştırın.

Sub addegister()
On Error Resume Next
sor = InputBox("Yeni ismi yazınız.", "İsim değişikliği")
If sor = "" Then Exit Sub
Selection.ShapeRange.Name = sor
End Sub

teşekkürler....

 

[baydeniro]

Merhaba arkadaşlar. Bu kod hangi durumda işe yarıyor. Ben anladıoğımı zannettiğim konuda fark görmedim. Ben çözemedim, yardımcı olursanız sevinirim.