ExcelBanter - Change multiple object group name

ExcelBanter (https://www.excelbanter.com/)

- Excel Discussion (Misc queries) (https://www.excelbanter.com/excel-discussion-misc-queries/)

- - Change multiple object group name (https://www.excelbanter.com/excel-discussion-misc-queries/100824-change-multiple-object-group-name.html)

GreenBean

Change multiple object group name

Hi all,

Whilst the code below changes all button names from GW2opt to GW4opt is
there a way to change group names e.g. change group 1a to 1a4 but using a
wildcard char to replace 1a since I have groups 1b, 1c, etc. Simply, Iwant
to add 4 to all group names!

Public Sub ChangeButtonName()
Dim OleObj As OLEObject

For Each OleObj In ActiveSheet.OLEObjects
With OleObj
.Name = Replace(.Name, "GW2opt", "GW4opt")

End With
Next OleObj
End Sub

Bob Phillips

Change multiple object group name

Public Sub ChangeButtonName()
Dim OleObj As OLEObject

For Each OleObj In ActiveSheet.OLEObjects
With OleObj.Object
.GroupName = Replace(.GroupName, .GroupName, .GroupName & "4")
End With
Next OleObj

End Sub

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"GreenBean" wrote in message
...
Hi all,

Whilst the code below changes all button names from GW2opt to GW4opt is
there a way to change group names e.g. change group 1a to 1a4 but using a
wildcard char to replace 1a since I have groups 1b, 1c, etc. Simply,
Iwant
to add 4 to all group names!

Public Sub ChangeButtonName()
Dim OleObj As OLEObject

For Each OleObj In ActiveSheet.OLEObjects
With OleObj
.Name = Replace(.Name, "GW2opt", "GW4opt")

End With
Next OleObj
End Sub

GreenBean

Change multiple object group name

"Bob Phillips" wrote in message
...
Public Sub ChangeButtonName()
Dim OleObj As OLEObject

For Each OleObj In ActiveSheet.OLEObjects
With OleObj.Object
.GroupName = Replace(.GroupName, .GroupName, .GroupName & "4")
End With
Next OleObj

End Sub

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"GreenBean" wrote in message
...
Hi all,

Whilst the code below changes all button names from GW2opt to GW4opt is
there a way to change group names e.g. change group 1a to 1a4 but using a
wildcard char to replace 1a since I have groups 1b, 1c, etc. Simply,
Iwant
to add 4 to all group names!

Public Sub ChangeButtonName()
Dim OleObj As OLEObject

For Each OleObj In ActiveSheet.OLEObjects
With OleObj
.Name = Replace(.Name, "GW2opt", "GW4opt")

End With
Next OleObj
End Sub

Hi Bob,

I've tried the scipt and it doesn't like it - get run time error 438...I
tried something similar but with same outcome....

GreenBean

Change multiple object group name

"GreenBean" wrote in message
...

"Bob Phillips" wrote in message
...
Public Sub ChangeButtonName()
Dim OleObj As OLEObject

For Each OleObj In ActiveSheet.OLEObjects
With OleObj.Object
.GroupName = Replace(.GroupName, .GroupName, .GroupName & "4")
End With
Next OleObj

End Sub

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"GreenBean" wrote in message
...
Hi all,

Whilst the code below changes all button names from GW2opt to GW4opt is
there a way to change group names e.g. change group 1a to 1a4 but using
a
wildcard char to replace 1a since I have groups 1b, 1c, etc. Simply,
Iwant
to add 4 to all group names!

Public Sub ChangeButtonName()
Dim OleObj As OLEObject

For Each OleObj In ActiveSheet.OLEObjects
With OleObj
.Name = Replace(.Name, "GW2opt", "GW4opt")

End With
Next OleObj
End Sub

Hi Bob,

I've tried the scipt and it doesn't like it - get run time error 438...I
tried something similar but with same outcome....
Sri Bob - tell a lie - it works once - didn't see the change first
time!!!ooops

Is there a way to use wild card since if I want to change 1a4 to 1a5 the
scipt will currently give 1a44?

tia

Tom Ogilvy

Change multiple object group name

Public Sub ChangeButtonName()
Dim OleObj As OLEObject

For Each OleObj In ActiveSheet.OLEObjects
With OleObj.Object
.GroupName = Left(.GroupName,len(.GroupName)-1) & "5"
End With
Next OleObj

End Sub

--
Regards,
Tom Ogilvy

"GreenBean" wrote in message
...

"GreenBean" wrote in message
...

"Bob Phillips" wrote in message
...
Public Sub ChangeButtonName()
Dim OleObj As OLEObject

For Each OleObj In ActiveSheet.OLEObjects
With OleObj.Object
.GroupName = Replace(.GroupName, .GroupName, .GroupName &
"4")
End With
Next OleObj

End Sub

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"GreenBean" wrote in message
...
Hi all,

Whilst the code below changes all button names from GW2opt to GW4opt is
there a way to change group names e.g. change group 1a to 1a4 but using
a
wildcard char to replace 1a since I have groups 1b, 1c, etc. Simply,
Iwant
to add 4 to all group names!

Public Sub ChangeButtonName()
Dim OleObj As OLEObject

For Each OleObj In ActiveSheet.OLEObjects
With OleObj
.Name = Replace(.Name, "GW2opt", "GW4opt")

End With
Next OleObj
End Sub

Hi Bob,

I've tried the scipt and it doesn't like it - get run time error 438...I
tried something similar but with same outcome....
Sri Bob - tell a lie - it works once - didn't see the change first
time!!!ooops

Is there a way to use wild card since if I want to change 1a4 to 1a5 the
scipt will currently give 1a44?

tia

GreenBean

Change multiple object group name

"Tom Ogilvy" wrote in message
...
Public Sub ChangeButtonName()
Dim OleObj As OLEObject

For Each OleObj In ActiveSheet.OLEObjects
With OleObj.Object
.GroupName = Left(.GroupName,len(.GroupName)-1) & "5"
End With
Next OleObj

End Sub

--
Regards,
Tom Ogilvy

"GreenBean" wrote in message
...

"GreenBean" wrote in message
...

"Bob Phillips" wrote in message
...
Public Sub ChangeButtonName()
Dim OleObj As OLEObject

For Each OleObj In ActiveSheet.OLEObjects
With OleObj.Object
.GroupName = Replace(.GroupName, .GroupName, .GroupName &
"4")
End With
Next OleObj

End Sub

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"GreenBean" wrote in message
...
Hi all,

Whilst the code below changes all button names from GW2opt to GW4opt
is
there a way to change group names e.g. change group 1a to 1a4 but
using a
wildcard char to replace 1a since I have groups 1b, 1c, etc. Simply,
Iwant
to add 4 to all group names!

Public Sub ChangeButtonName()
Dim OleObj As OLEObject

For Each OleObj In ActiveSheet.OLEObjects
With OleObj
.Name = Replace(.Name, "GW2opt", "GW4opt")

End With
Next OleObj
End Sub

Hi Bob,

I've tried the scipt and it doesn't like it - get run time error 438...I
tried something similar but with same outcome....
Sri Bob - tell a lie - it works once - didn't see the change first
time!!!ooops

Is there a way to use wild card since if I want to change 1a4 to 1a5 the
scipt will currently give 1a44?

tia

Sorry Tom - didn't work first time then did! Must be losing it tonight.
Both now work but always end in runtime error 439 - object not supported -
is there a way to fix that?

Tom Ogilvy

Change multiple object group name

This worked fine for me:

Public Sub ChangeButtonGroupName()
Dim OleObj As OLEObject

For Each OleObj In ActiveSheet.OLEObjects
If TypeOf OleObj.Object Is MSForms.OptionButton Then
With OleObj.Object
.GroupName = Left(.GroupName, Len(.GroupName) - 1) & "5"
End With
End If
Next OleObj

End Sub

--
Regards,
Tom Ogilvy

"GreenBean" wrote in message
...

"Tom Ogilvy" wrote in message
...
Public Sub ChangeButtonName()
Dim OleObj As OLEObject

For Each OleObj In ActiveSheet.OLEObjects
With OleObj.Object
.GroupName = Left(.GroupName,len(.GroupName)-1) & "5"
End With
Next OleObj

End Sub

--
Regards,
Tom Ogilvy

"GreenBean" wrote in message
...

"GreenBean" wrote in message
...

"Bob Phillips" wrote in message
...
Public Sub ChangeButtonName()
Dim OleObj As OLEObject

For Each OleObj In ActiveSheet.OLEObjects
With OleObj.Object
.GroupName = Replace(.GroupName, .GroupName, .GroupName &
"4")
End With
Next OleObj

End Sub

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"GreenBean" wrote in message
...
Hi all,

Whilst the code below changes all button names from GW2opt to GW4opt
is
there a way to change group names e.g. change group 1a to 1a4 but
using a
wildcard char to replace 1a since I have groups 1b, 1c, etc. Simply,
Iwant
to add 4 to all group names!

Public Sub ChangeButtonName()
Dim OleObj As OLEObject

For Each OleObj In ActiveSheet.OLEObjects
With OleObj
.Name = Replace(.Name, "GW2opt", "GW4opt")

End With
Next OleObj
End Sub

Hi Bob,

I've tried the scipt and it doesn't like it - get run time error
438...I tried something similar but with same outcome....
Sri Bob - tell a lie - it works once - didn't see the change first
time!!!ooops

Is there a way to use wild card since if I want to change 1a4 to 1a5 the
scipt will currently give 1a44?

tia

Sorry Tom - didn't work first time then did! Must be losing it tonight.
Both now work but always end in runtime error 439 - object not supported -
is there a way to fix that?

GreenBean

Change multiple object group name

"Tom Ogilvy" wrote in message
...
This worked fine for me:

Public Sub ChangeButtonGroupName()
Dim OleObj As OLEObject

For Each OleObj In ActiveSheet.OLEObjects
If TypeOf OleObj.Object Is MSForms.OptionButton Then
With OleObj.Object
.GroupName = Left(.GroupName, Len(.GroupName) - 1) & "5"
End With
End If
Next OleObj

End Sub

--
Regards,
Tom Ogilvy

"GreenBean" wrote in message
...

"Tom Ogilvy" wrote in message
...
Public Sub ChangeButtonName()
Dim OleObj As OLEObject

For Each OleObj In ActiveSheet.OLEObjects
With OleObj.Object
.GroupName = Left(.GroupName,len(.GroupName)-1) & "5"
End With
Next OleObj

End Sub

--
Regards,
Tom Ogilvy

"GreenBean" wrote in message
...

"GreenBean" wrote in message
...

"Bob Phillips" wrote in message
...
Public Sub ChangeButtonName()
Dim OleObj As OLEObject

For Each OleObj In ActiveSheet.OLEObjects
With OleObj.Object
.GroupName = Replace(.GroupName, .GroupName, .GroupName &
"4")
End With
Next OleObj

End Sub

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"GreenBean" wrote in message
...
Hi all,

Whilst the code below changes all button names from GW2opt to GW4opt
is
there a way to change group names e.g. change group 1a to 1a4 but
using a
wildcard char to replace 1a since I have groups 1b, 1c, etc.
Simply,
Iwant
to add 4 to all group names!

Public Sub ChangeButtonName()
Dim OleObj As OLEObject

For Each OleObj In ActiveSheet.OLEObjects
With OleObj
.Name = Replace(.Name, "GW2opt", "GW4opt")

End With
Next OleObj
End Sub

Hi Bob,

I've tried the scipt and it doesn't like it - get run time error
438...I tried something similar but with same outcome....
Sri Bob - tell a lie - it works once - didn't see the change first
time!!!ooops

Is there a way to use wild card since if I want to change 1a4 to 1a5
the scipt will currently give 1a44?

tia

Sorry Tom - didn't work first time then did! Must be losing it tonight.
Both now work but always end in runtime error 439 - object not
supported - is there a way to fix that?

thx Tom - working great now....

All times are GMT +1. The time now is 06:41 PM.