macro - paste the contents of the clipboard into an object

Hi everyone!
There is such a macro.

Sub New Macro ()
Dim s As Shape, p As Shape
For Each s In ActiveSelectionRange
Set p = ActiveLayer.Paste
p.AlignToShape cdrAlignHCenter + cdrAlignVCenter, s, cdrTextAlignBoundingBox
Next
End Sub

The problem is that text characters are often inserted outside the object's boundaries (if it has a complex form). Is it possible to add a parameter to the macro so that it inserts a symbol inside the boundaries of the object, and not outside them (not necessarily even in the center of the object)