День добрый всем.
Есть простая достаточно задачка у меня. Берем текст из ячейки, создаем из него 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 творит чудеса