ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 192.3749606299, _
320.25, 72, 72).
Select
Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text =
"X"
Selection.ShapeRange(1).TextFrame2.TextRange.Characters(1, 1).ParagraphFormat. _
FirstLineIndent = 0
With
Selection.ShapeRange(1).TextFrame2.TextRange.Characters(1, 1).Font
.NameComplexScript =
"+mn-cs"
.NameFarEast =
"+mn-ea"
.Fill.Visible = msoTrue
.Fill.ForeColor.ObjectThemeColor = msoThemeColorDark1
.Fill.ForeColor.TintAndShade = 0
.Fill.ForeColor.Brightness = 0
.Fill.Transparency = 0
.Fill.Solid
.Size = 714
.Name =
"+mn-lt"
End
With
Selection.ShapeRange.ScaleWidth 3.6200822723, msoFalse, msoScaleFromBottomRight
Selection.ShapeRange.ScaleHeight 5.4465408805, msoFalse, _
msoScaleFromBottomRight
Selection.ShapeRange.ScaleWidth 1.7257925896, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 1.8112262495, msoFalse, msoScaleFromTopLeft
ActiveWindow.SmallScroll Down:=-12
Selection.ShapeRange.TextFrame2.TextRange.ParagraphFormat.Alignment = _
msoAlignCenter
Selection.ShapeRange.TextFrame2.VerticalAnchor = msoAnchorMiddle
Selection.ShapeRange.Fill.Visible = msoFalse