Category: shapes

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