My problem is, i have no idea how to do this.
I have successfully recorded a macro, but the code means nothing to me.
In Access my intellisense works, but bot in excel. with intellisense one can use it as a tool to understand the functions.
If anyone can help me understand the code below, i would appreciate it.
Code: Select all
Sub InsertTextBox()
'
' InsertTextBox Macro
' Insert text box
'
' Keyboard Shortcut: Ctrl+t
'
ActiveSheet.Shapes.AddLabel(msoTextOrientationHorizontal, 60, 213, 72, 72). _
Select
Selection.ShapeRange.ScaleWidth 10, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 1, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = _
"Hospital Signatures:" & Chr(13) & "" & Chr(13) & "Stock Controller (or equivelant):___________________" & Chr(13) & "" & Chr(13) & "Pharmacy Manager:_________________Date:___________"
Selection.ShapeRange(1).TextFrame2.TextRange.Characters(1, 21).ParagraphFormat. _
FirstLineIndent = 0
With Selection.ShapeRange(1).TextFrame2.TextRange.Characters(1, 21).Font
.NameComplexScript = "+mn-cs"
.NameFarEast = "+mn-ea"
.Fill.Visible = msoTrue
.Fill.ForeColor.ObjectThemeColor = msoThemeColorText1
.Fill.ForeColor.TintAndShade = 0
.Fill.ForeColor.Brightness = 0
.Fill.Transparency = 0
.Fill.Solid
.Size = 11
.Name = "+mn-lt"
End With
End Sub