Is there a way to make Artistic text "fit to frame" automatically?
I know you can make paragraph text fit to frame, but I need to be able to make artistic text fill a rectangle, as shown in the attached image.
Here's a macro you could try:
The .GMS file has been wrapped in a .ZIP so that the forum software will allow the upload.
The code looks like this:
Dim sr As ShapeRange
Dim sToScale As Shape
Dim sRef As Shape
Dim dblScaleFactor As Double
On Error GoTo ErrHandler
ActiveDocument.BeginCommandGroup "fit A into B"
Set sr = ActiveSelectionRange
If sr.Count < 2 Or sr.Count > 2 Then
MsgBox "Exactly two objects must be selected.", vbInformation, "fit_A_into_B"
Set sRef = sr(1)
Set sToScale = sr(2)
If sRef.SizeWidth / sRef.SizeHeight > sToScale.SizeWidth / sToScale.SizeHeight Then
'scale to match height
dblScaleFactor = sRef.SizeHeight / sToScale.SizeHeight
'scale to match width
dblScaleFactor = sRef.SizeWidth / sToScale.SizeWidth
sToScale.SizeWidth = sToScale.SizeWidth * dblScaleFactor
sToScale.SizeHeight = sToScale.SizeHeight * dblScaleFactor
sToScale.CenterX = sRef.CenterX
sToScale.CenterY = sRef.CenterY
MsgBox "Error occured: " & Err.Description & vbCrLf & vbCrLf & "fit_A_into_B"
Thanks for your help! That's what I was looking for