VBA WORDART

Also, I am trying to get the Word rotated at an angle.

I got most of my questions figured out except for how to get the text to appear at all times unless a checkbox is checked. I tried putting it under a worksheet_change(), but then it only worked when the targeted cell changed and even with that you could still delete the text. Any suggestions?

Change your code so that the shape is assigned to an object variable, like this:


I added rotation at 45 degrees.

Then right click any Toolbar and choose Control ToolBox. Click the CheckBox icon and click and drag to place it on your worksheet. Right click the CheckBox and choose View Code. Paste this into the window on the right:


Press Alt+F11 to return to your worksheet and click the Design icon in the Toolbox (top left) to exit design mode.

Run Test then click the CheckBox.

I am getting an error with the current code I have below:

Public Sh As Shape
Sub Test()
Set Sh = ActiveSheet.Shapes.AddTextEffect(msoTextEffect9, "VOID", _
"Arial Black", 36#, msoFalse, msoFalse, _
125, 300)
With Sh
.ScaleWidth 2, msoFalse, msoScaleFromTopLeft
.ScaleHeight 2, msoFalse, msoScaleFromBottomRight
.Fill.Visible = msoTrue
.Fill.Solid
.Fill.ForeColor.SchemeColor = 0
.Fill.Transparency = 0.5
.Shadow.Transparency = 0.5
.Line.Visible = msoFalse
.Rotation = 45#
End With
End Sub

Private Sub CheckBox1_Click()
Dim TheWord As String
Dim Sh As Object
Dim olApp As Object, olMail As Object
Set olApp = CreateObject("Outlook.Application")
Set olMail = olApp.CreateItem(0)

TheWord = "1234"
If InputBox("Please Enter the verification #", "Password Required") = TheWord Then
CheckBox1.Value = True
'Remove VOID
Sh.Visible = False

'Send to TOOLROOM
'ActiveWorkbook.SendMail Recipients:="ME", Subject:=(Range("E7").Value & " -V-")

'Send message to Originator
olMail.To = Range("F5")
olMail.Subject = (Range("E7") & " in TOOLROOM")
'olMail.Body = Range("a1")
'To display the message use this
olMail.Display
'or to send the message use this
'olMail.Send
'Reactive Excel
AppActivate "Microsoft Excel"

MsgBox ("Verification has been sent to " & Range("F5"))

Else
CheckBox1.Value = False
Sh.Visible = True
MsgBox "Access Denied"
End If
End Sub

I expect that's because you have:

Dim Sh As Object

in your CheckBox1_Click event procedure. That makes it local to thet procedure, but it should be using the Public variable already declared before and set in the Test procedure. So remove that line - I didn't have it in my code.

IS there a way to flag an email using Activeworkbook.Sendmail?

No. The SendMail Method has only three arguments - Recipients, Subject and ReturnReceipt.