Private Sub CommandButton1_Click()
Dim sh As Shape
Set sh = Shapes.AddShape(Type:=msoShape10pointStar, _
Left:=Range("D5:F9").Left, _
Top:=Range("D5:F9").Top, _
Width:=Range("D5:F9").Width, _
Height:=Range("D5:F9").Height)
With sh
.Fill.BackColor.RGB = RGB(225, 0, 0)
.Fill.ForeColor.RGB = RGB(0, 225, 0)
.Line.DashStyle = msoLineSysDot
.Line.Weight = 5
.TextFrame2.TextRange.Text = "hi How are you?"
.TextFrame2.TextRange.Font.Size = 25
.TextFrame2.TextRange.Font.Bold = True
.TextFrame2.TextRange.Font.Italic = True
End With
End Sub