Пробегает по выделеному и если находит Артистик текст, то конвертит его в Параграф и наоборот...
Код:
Sub textConvertTo()
Dim s As Shape, r As New ShapeRange
Set r = ActiveSelectionRange
For Each s In r
If s.Type = cdrTextShape Then
If s.Text.Type = cdrArtisticText Then
s.Text.ConvertToParagraph
Else
If s.Text.Type = cdrParagraphText Then s.Text.ConvertToArtistic
End If
End If
Next s
End Sub
Нельзя ли его сделать в виде GMS? Я знаю только, куда вставляется такой макрос.
Код:
Sub textConvertTo()
Dim s As Shape, r As New ShapeRange
Set r = ActiveSelectionRange
For Each s In r
If s.Type = cdrTextShape Then
If s.Text.Type = cdrArtisticText Then
s.Text.ConvertToParagraph
Else
If s.Text.Type = cdrParagraphText Then s.Text.ConvertToArtistic
End If
End If
Next s
End Sub
Нельзя ли его сделать в виде GMS? Я знаю только, куда вставляется такой макрос.