Ark68
Well-known Member
- Joined
- Mar 23, 2004
- Messages
- 4,570
- Office Version
- 365
- 2016
- Platform
- Windows
I have a series of 7 grouped shapes (named: btn_svc_# respectively) object on my worksheet (using as a button) that comprises of a rounded rectangles (named: srv_btn_# respectively) and a superimposed textbox (named: srv_tb_#) where # isolates the unique "button".
I am using this code to set the default format properties of each of the seven buttons:
I am getting a "The item with the specified name wasn't found." error with the line in red.
I'm just guessing, but I might have to ungroup the grouped object to make svc_tb_# accessible? I looked, but I haven't figured out how to do that. Looking for help.
I am using this code to set the default format properties of each of the seven buttons:
Rich (BB code):
For sbtn = 1 To 7
ssbtn = "srv_btn_" & sbtn
Set shp = .Shapes(ssbtn)
With shp
.Fill.ForeColor.RGB = vbWhite
.Line.Weight = 0.25
.Line.ForeColor.RGB = RGB(209, 239, 250)
End With
.Shapes("svc_tb_" & sbtn).Font.Color = RGB(209, 239, 250)
Next sbtn
I am getting a "The item with the specified name wasn't found." error with the line in red.
I'm just guessing, but I might have to ungroup the grouped object to make svc_tb_# accessible? I looked, but I haven't figured out how to do that. Looking for help.