Sub Test() Const Border As Double = 0.5 Dim s As Shape, sRect As Shape, sShadow As Shape Dim eff As Effect, sr As New ShapeRange Dim x As Double, y As Double, sx As Double, sy As Double Set s = ActiveLayer.CreateArtisticText(4, 5, "Cut") With s.Text.FontProperties .Name = "Arial" .Size = 200 .Style = cdrBoldFontStyle End With s.Text.AlignProperties.Alignment = cdrCenterAlignment s.GetBoundingBox x, y, sx, sy Set sRect = ActiveLayer.CreateRectangle2(x - Border, y - Border, sx + 2 * Border, sy + 2 * Border) s.Selected = True Set sRect = ActiveSelection.Combine sRect.Fill.UniformColor.CMYKAssign 30, 0, 0, 0 Set eff = sRect.CreateDropShadow(cdrDropShadowFlat, 80, 10, 0.2, -0.2, CreateCMYKColor(0, 0, 0, 100)) eff.Separate Set sShadow = sRect.Next Set s = ActiveLayer.CreateRectangle2(x, y, sx, sy) s.Fill.ApplyNoFill s.Outline.Type = cdrNoOutline sShadow.AddToPowerClip s s.OrderBackOf sRect sr.Add s sr.Add sRect sr.Group.CreateSelectionEnd Sub