VBA: Cell Value = whatever the name of the shape

[hrayani]

Hello Friends,

I have three shapes in a worksheet with names humayun1, humayun2 & humayun3

I need a vba code which I will assign to all 3 shapes which would change the value of A1 to whatever the name of the shape is

For example: when clicked shape humayun1 then range("A1").value should be "humayun1"

Regards,

Humayun

 

[Fluff]

How about

Sub hrayani()
   Range("A1").Value = ActiveSheet.Shapes(Application.Caller).Name
End Sub

 

[hrayani]

Thanks Fluff,

That worked GREAT!

Just one more question - I apologize for not asking this in the first go

All three shapes are grouped together as "Group 4"

I want font size of all the the shapes within the the "Group 4" to be 14
and only the selected shape font size should be 16

Regards

 

[Fluff]

I've never worked with grouped shapes, so have no idea how to do that.
Hopefully someone else will step in.

 

[hrayani]

Oh! That's absolutely fine

Thanks once again

 

[Fluff]

You're welcome & thanks for the feedback.

 

[hrayani]

Hi Fluff,

With a bit of searching on the net & tweaking, I came up with this which serves the additional purpose

The reason for posting the whole code is that it might be of any sort of help for someone

Sub testing()

Dim sp As Object
Dim ActiveShape As Shape

ButtonName = Application.Caller
Set ActiveShape = ActiveSheet.Shapes(ButtonName)

Set sp0 = ActiveSheet.DrawingObjects("Group 4")

    With sp0.Font
        .Bold = False
        .Size = 9
        .ColorIndex = 16
    End With

ActiveShape.Select
    With Selection.Font
        .Bold = True
        .Size = 12
        .ColorIndex = 1
        Range("C11").Select
    End With

Range("A1").Value = ActiveSheet.Shapes(Application.Caller).Name

End Sub

 

[Fluff]

Glad you sorted it & thanks for letting us know.