- Сообщения
- 2 145
- Реакции
- 805
так получилось ... у Михаила лаконичней
Уф. Какие-то глюки у меня, что ли...
Вот, всё работает, всем спасибо!
Код:
Sub InsertFileName()
Set s = ActiveShape
If s Is Nothing Then Beep: Exit Sub
Set txt = ActiveLayer.CreateArtisticText(s.RightX - ActiveDocument.ToUnits(150, cdrMillimeter), _
s.BottomY - ActiveDocument.ToUnits(-15, cdrMillimeter), ActiveDocument.FileName, , , "Tahoma", _
24, Alignment:=cdrRightAlignment)
txt.Fill.UniformColor = CreateCMYKColor(0, 0, 0, 30)
End Sub