Hi friends,
I have two option buttons with certain text for ex: "One", "Two". These two are inserted in a Group Box n Grouped.
Now option button 1. Text = One; Option button 2 .text = Two, Group box 3.
I grouped these three shapes. Finally the shape's name calles as Group 4.
In fact, I have two versions in the sheet one is french n second one is English. So i firstly named them in English. So i need to change the text in french when i click on "French" language button.
For ex : "One" to "Un", "Two" to "Deux". i used certain code change it? But it works only once n next time the Group Name changes. In dis case, "Group 4" to "Group 5"
I have almost 7 Groups in a sheet. How can i change the text? Help me, pls!!
thanks in advance,,
Narra.
My Code :
"Group 4" changes when we regroup...
ActiveSheet.Shapes("Group 4").Select
Selection.ShapeRange.Ungroup.Select
ActiveSheet.Shapes("Option Button 1").Select
Selection.Characters.Text = "Un"
ActiveSheet.Shapes("Option Button 2").Select
Selection.Characters.Text = "Deux"
ActiveSheet.Shapes.Range(Array("Group Box 3", "Option Button 1", _
"Option Button 2")).Select
Selection.ShapeRange.Group.Select
I have two option buttons with certain text for ex: "One", "Two". These two are inserted in a Group Box n Grouped.
Now option button 1. Text = One; Option button 2 .text = Two, Group box 3.
I grouped these three shapes. Finally the shape's name calles as Group 4.
In fact, I have two versions in the sheet one is french n second one is English. So i firstly named them in English. So i need to change the text in french when i click on "French" language button.
For ex : "One" to "Un", "Two" to "Deux". i used certain code change it? But it works only once n next time the Group Name changes. In dis case, "Group 4" to "Group 5"
I have almost 7 Groups in a sheet. How can i change the text? Help me, pls!!
thanks in advance,,
Narra.
My Code :
"Group 4" changes when we regroup...
ActiveSheet.Shapes("Group 4").Select
Selection.ShapeRange.Ungroup.Select
ActiveSheet.Shapes("Option Button 1").Select
Selection.Characters.Text = "Un"
ActiveSheet.Shapes("Option Button 2").Select
Selection.Characters.Text = "Deux"
ActiveSheet.Shapes.Range(Array("Group Box 3", "Option Button 1", _
"Option Button 2")).Select
Selection.ShapeRange.Group.Select