OLE大牛妖哥，过来看看【OLE控制WORD插入旋转图片问题】

[ahaozi]

我需要在WORD里面插入一个图片并向右旋转90度，并将图片设置合适长宽，有谁知道怎么弄的，谢谢！

[ccrun.com]

这个问题很容易解决，我只是担心为你写好这段代码以后，你又提出别的需求，然后一个帖子里我回复个没完没了，直到帮你写完你所有的代码。你要确定你的需求就这么一点，然后我再帮你写代码，你就结帖。

[ccrun.com]

Variant vWordApp;
try
{
    vWordApp = Variant::CreateObject("Word.Application");
}
catch(...)
{
    MessageBox(0, TEXT("启动 Word 出错, 可能是没有安装Word."),
            TEXT("Errpr"), MB_OK | MB_ICONERROR);
    vWordApp = Unassigned;
    return;
}

// 隐藏Word界面
vWordApp.OlePropertySet("Visible", true);
// 新建一个文档
vWordApp.OlePropertyGet("Documents").OleFunction("Add");

String strPicFile = "D:\\ccrun\\123.jpg";
Variant vPic = vWordApp.OlePropertyGet("Selection").OlePropertyGet("InlineShapes")
        .OleFunction("AddPicture", WideString(strPicFile), false, true);

vPic.OlePropertySet("LockAspectRatio", true);

// 设置高度和宽度
vPic.OlePropertySet("Height", 240);
vPic.OlePropertySet("Width", 320);

// 旋转90度
vPic.OleFunction("ConvertToShape").OleProcedure("IncrementRotation", 90);

// ...

记的结帖，小公仔。

[手动阀虚]

引用 2 楼 ccrun 的回复:

Variant vWordApp;
try
{
    vWordApp = Variant::CreateObject("Word.Application");
}
catch(...)
{
    MessageBox(0, TEXT("启动 Word 出错, 可能是没有安装Word."),
            TEXT("Errpr"), MB_OK | MB_ICONERROR);
    vWordApp = Unassigned;
    return;
}

// 隐藏Word界面
vWordApp.OlePropertySet("Visible", true);
// 新建一个文档
vWordApp.OlePropertyGet("Documents").OleFunction("Add");

String strPicFile = "D:\\ccrun\\123.jpg";
Variant vPic = vWordApp.OlePropertyGet("Selection").OlePropertyGet("InlineShapes")
        .OleFunction("AddPicture", WideString(strPicFile), false, true);

vPic.OlePropertySet("LockAspectRatio", true);

// 设置高度和宽度
vPic.OlePropertySet("Height", 240);
vPic.OlePropertySet("Width", 320);

// 旋转90度
vPic.OleFunction("ConvertToShape").OleProcedure("IncrementRotation", 90);

// ...

记的结帖，小公仔。

妖哥卖萌了