День добрый всем.
Есть простая достаточно задачка у меня. Берем текст из ячейки, создаем из него WordArt, затем преобразовываем WordArt в рисунок через специальную вставку.
Вот примерный код, подчищенный макрописец:
При таком подходе все работает как задумано, кроме одного - размер (Ш*В) вставляемой картинки значительно больше, чем размер скопированного объекта, и чем больше шрифт, тем больше расхождение размеров. Такое ощущение, что для рисунка добавляются пропорциональные поля.
Соответственно, два вопроса:
1) Есть ли другой способ преобразовать WordArt (ну или любую другую надпись) в картинк? Вроде есть, но припомнить не могу.
2) Как можно повоздействовать на вот эти вот поля? Только обрезкой?
Есть простая достаточно задачка у меня. Берем текст из ячейки, создаем из него WordArt, затем преобразовываем WordArt в рисунок через специальную вставку.
Вот примерный код, подчищенный макрописец:
| Код |
|---|
Sub MakeWater()
Range("B3").Select
With ActiveSheet.Shapes.AddTextEffect(msoTextEffect1, Range("B3").Text, _
"+mn-lt", 54, msoTrue, msoFalse, Range("B3").Left, Range("B3").Top)
With .TextFrame2.TextRange.Font
.Size = 36
.Shadow.Blur = 0.25
.Shadow.OffsetX = 1
.Shadow.OffsetY = 0.2
.Line.Weight = 0.1
End With
.Top = Range("B3").Top
.Left = Range("B3").Left
.Copy
End With
ActiveSheet.PasteSpecial Format:="Метафайл Windows (EMF)", Link:=False, _
DisplayAsIcon:=False
End Sub
|
При таком подходе все работает как задумано, кроме одного - размер (Ш*В) вставляемой картинки значительно больше, чем размер скопированного объекта, и чем больше шрифт, тем больше расхождение размеров. Такое ощущение, что для рисунка добавляются пропорциональные поля.
Соответственно, два вопроса:
1) Есть ли другой способ преобразовать WordArt (ну или любую другую надпись) в картинк? Вроде есть, но припомнить не могу.
2) Как можно повоздействовать на вот эти вот поля? Только обрезкой?
F1 творит чудеса
