Полотно - вставка и параметры

[cw_o]

Подскажите пожалуйста способ, как вставить полотно в текущую позицию. Знаю команду Shapes.AddCanvas, но в ней надо указывать координаты.
И еще хотелось бы программно подгонять размер полотна под содержимое. В ворде это команда Подобрать размер из контекстного меню, не могу найти ее аналога в VBA.

[user4]

Если первый вопрос все еще стоит, могу рассказать, как это делать (вставить полотно в текущую позицию)

[Пименов Александр]

Объект Canvas это сам контейнер для группировки в нем других объектов типа Shape. Вы напишите подробнее что конкретно Вам нужно. По размерам и координатам тоже много нюансов. Целую главу книги написать можно. Если вы новичок и мучаетесь с макросом для какой-то конкретной задачи то лучше напишите дайте ТЗ на задачу макроса. А если для освоения VBA, тогда я смогу ответить на Ваши вопросы по мере свободного времени

[user4]

Вставить полотно в текущую позицию можно так:

Sub AddCanvas()
    Dim shp, txtbox As shape
    Dim n As Integer
    Dim shpW, shpH
    shpW = 69                                                       'ширина полотна
    shpH = 45                                                       'высота полотна
    n = Selection.Information(wdFirstCharacterColumnNumber) - 1     'текущая позиция
    Set shp = ActiveDocument.Shapes.AddCanvas(0, 0, shpW, shpH, _   'вставить полотно
                     Selection.Range)
    shp.Select                                                      'выбрать полотно
    Selection.ShapeRange.WrapFormat.Type = wdWrapInline             'выбрать обтекание текстом "в тексте"
    Set txtbox = shp.CanvasItems.addTextbox(msoTextOrientationHorizontal, _
                     0, 0, shpW, shpH)                              'вставить Text Box (с пустым полотном почему-то не работает)
    shp.Select                                               'выбрать полотно
    Selection.Cut                                            'Cut
    Selection.MoveRight Unit:=wdCharacter, count:=n          'перейти на позицию n
    Selection.PasteAndFormat (wdPasteDefault)                'Paste
    Selection.Font.Position = -20                            'опускаем полотно ниже базовой линии строки
    Selection.Collapse                                       'отменить выделение
    Selection.MoveRight Unit:=wdCharacter, count:=1
    Selection.Font.Position = 0                              'вернуться на базовую линию строки
    Selection.TypeText Text:=" "
    

End Sub

При этом теряется содержимое буфера обмена.

Если кто-нибудь может предложить более цивильное решение, буду признателен!

[cw_o]

user4,
спасибо за идею. Но по-моему манипуляции с n лишние, т.к. Selection.Range в вызове ActiveDocument.Shapes.AddCanvas уже дает нужный результат.
Насчет опускания полотна относительно базовой линии - да, проблема, только с текстовым полем хочет работать.

У меня тут еще проблема возникла - нужно рисунок туда вставить программно, на полотно.

shp.CanvasItems.AddPicture(folder & name, False, True, 0, 0)

Если рисунок очень большой и не влазит, то вылетает с ошибкой. Если тупо указать размеры полотна в этой функции, то неправильно отмасштабируется рисунок. Отмасштабировать рисунок надо под размеры окна (пускай полотна), и чтоб пропорции рисунка сохранились. А если рисунок маленький, то не масштабировать.