Option Explicit
Public s As Shape
Sub CreeShape()
Set s = Sheets(1).Shapes.AddShape(msoShapeRectangle, 10, 10, 280, 20)
s.Name = "Menu1"
With s
.TextFrame.Characters.Text = "https://www.excel-downloads.com/forums/forum-excel.7/"
.TextFrame.Characters.Font.Color = vbBlue
.TextFrame.Characters.Font.Underline = xlUnderlineStyleSingle
.Fill.ForeColor.RGB = vbYellow
.Line.ForeColor.RGB = vbRed
End With
Sheets(1).Hyperlinks.Add Anchor:=s, Address:="https://www.excel-downloads.com/forums/forum-excel.7/"
Set s = Sheets(1).Shapes.AddShape(msoShapeRectangle, 10, 10, 214, 20)
s.Name = "Menu2"
With s
.Top = s.Top + 23
.TextFrame.Characters.Text = "https://www.excel-downloads.com/forums/"
.TextFrame.Characters.Font.Color = vbBlue
.TextFrame.Characters.Font.Underline = xlUnderlineStyleSingle
.Fill.ForeColor.RGB = vbYellow
.Line.ForeColor.RGB = vbRed
End With
Sheets(1).Hyperlinks.Add Anchor:=s, Address:="https://www.excel-downloads.com/forums/"
End Sub