every thing is fine but I am not able to get display of text message in shapes
private Sub ShowPleaseWait()
With digitalcertificate
.Shapes("Wait").Delete
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 500, 150, 300, 200).Name = "Wait"
With .Shapes("Wait")
.TextFrame.Characters.Text = "Please Wait.... Processing Data"
ActiveSheet.Fill.ForeColor.SchemeColor = 44
End With
End With
With TextFrame.Characters(Start:=1, Length:=32).Font
.Name = "Arial"
.FontStyle = "Bold"
End With
End Sub
Go to Source
Author: Deepak Bhanushali