Как повернуть изображение в TextBox(e)?

[Diego__]

Добавляю новый текст бокс:
Word::ShapePtr imTextBox = m_WordDocument->Shapes->AddTextbox (Office::msoTextOrientationHorizont al, 100, 100, 1000, 1000);

Добавляю в текст бокс изображение:
Word::InlineShapePtr picture = imTextBox->TextFrame->ContainingRange->InlineShapes->AddPicture(L"c:\\image.bmp");

у InlineShape-a нет свойства rotate или метода которым его можно развернуть, пробую конвертировать его в ShapePtr и у Shape-a задать поворот:
Word::ShapePtr shapePtr = shape->ConvertToShape();
shapePtr->Rotation = angel;

в методе ConvertToShape падаем.

Если делаю так:
Word::InlineShapePtr shape = m_WordDocument->Paragraphs->Last->Range->InlineShapes->AddPicture(L"c:\\untitled.bmp");
Word::ShapePtr shapePtr = shape->ConvertToShape();

все нормально.

Что я делаю не так? Есть ли другой стособ добавить изображение в текст бокс? Возможно, сначала нужно развернуть изображение, а потом добавлять его в текст бокс?

[viter.alex]

Добавить можно, а вот разернуть почему-то нет. Хотя вручную получается. Лучше сначала развернуть, а потом вставлять.

[Diego__]

Как добавить повернутое изображение в TextBox?

Не с помощью метода
imTextBox->TextFrame->ContainingRange->InlineShapes->AddPicture(L"c:\\image.bmp");

Дайте, пожалуйста, маленький примерчик

[viter.alex]

Это у вас нужно спрашивать
Вам нужно сначала повернуть изображение, затем сохранить его в файл, а уж только затем добавить. Как это делается на «плюсах» я, к сожалению, не знаю. Может API поможет

[Diego__]

Такой вариант я рассматриваю, но не хотелось бы...

Мне хочется чтобы прямоугольник изображения, не содержал пустых областей. Если я поверну изображение на 45 градусов и сохраню еге в файл, получится файл с пустыми областями "в углах".

Неужели нет функциональности приблизительно такого формата:
imTextBox-> AddShapePtr(...) или imTextBox-> AddInlineImagePtr(...) ?

[Aent]

Получилось но довольно специфическим образом.
Распакуйте файлы в одну папку откройте doc и нажмите на кнопку в
тексте

Private Sub CommandButton1_Click()
    Dim newTextbox As Shape
    Application.ScreenUpdating = False
    With ActiveDocument.Shapes
        Set newTextbox = .AddTextbox( _
                         Orientation:=msoTextOrientationHorizontal, _
                         Left:=100, Top:=300, Width:=300, Height:=200)
        .AddPicture FileName:=ThisDocument.Path & "\test.gif", Left:=400, Top:=100
        With .Item(.Count)
            .IncrementRotation -45#
            .Select
        End With
        With Selection
            .Cut
            .PasteSpecial Link:=False, DataType:=14
            .Cut
        End With
        newTextbox.TextFrame.ContainingRange.Paste
        Application.ScreenRefresh
    End With
    Application.ScreenUpdating = True
End Sub

[Diego__]

Спасибо, Aent.
На плюсах это выглядит где то так:
Word::ShapePtr imTextBox = m_WordDocument->Shapes->AddTextbox(Office::msoTextOrientat ionHorizontal, 100, 100, 400, 400);

Word::InlineShapePtr picture = m_AppWord->Selection->InlineShapes->AddPicture(L"c:\\untitled.bmp");

Word::ShapePtr shapePtr = picture->ConvertToShape();
shapePtr->Rotation = 45;
shapePtr->Select();

m_AppWord->Selection->Cut();
imTextBox->TextFrame->ContainingRange->Select();
m_AppWord->Selection->Paste();

Столкнулся со следующей проблемой. Повернутое изображение вылезает за пределы текст блока слева и сверху. Файл в прикреплении. Если делаю все руками: открываю Word добавляю изображение, разворачиваю его, создаю новый текст блок, вырезаю, вставляю - все нормально.

Пробовал програмно установить отступы у текст блока - получается обрезанное изображение.
Что здесь можно сделать?

[Aent]

Diego__, у меня Word 2003. Ваш документ через конвертер не открывается. Если хотите что бы я его посмотрел, пожалуйста перевыложите файл в формате .doс а не .docx

[Diego__]

К сожалению сохранить файл в формате doc у меня не получается. Выскакивает сообщение "You cannot put drawing objects into a text box, callout, comment, footnote, or endnote", возможно в 2003 Word-е нельзя поворачивать изображения в текст боксах.
Если я руками возвращаю угол изображения в нуль, все сохраняется нормально, но изображение уже не вылезает за пределы текст бокса.

Во вложении скриншот того, что у меня получилось, или лучше сказать - скриншот того, что у меня не получается.

[Aent]

А каковы размеры и параметры TextBox'а ?
(Картинку в формате .png взял из вашего .docx файла)
Вообще не очень понятно что вы хотите в конце концов получить.
Сделайте вручную в Word желаемый документ и опубликуйте его на форуме в формате .doc.
Если не сможете сделать то что нужно в Word - выкладывайте картинку с фотошопа
Фраза

Мне хочется чтобы прямоугольник изображения, не содержал пустых областей

применительно к картинке из приаттаченного вами файла вообще не понятна.
Итого: опубликуйте окончательный вид того что хотите получить...