100分跪求操作Word中的AddTextEffect函数参数设置方法

[a5796489]

无语了，一点资料也查不到，好不容易通过模仿VBA的代码找到了Com接口中给Word加水印的这个方法，却比VBA里的这个函数多了最后一个参数，完全没办法了，求助。

CApplication app;
/*app的初始化省略*/
CSelection sel = app.get_Selection();
CHeaderFooter head = sel.get_HeaderFooter();
Cshapes shapes = head.get_Shapes();
shapes.AddTextEffect(27,L"水印文字",L"宋体",36,0,0,0,0,(VARIANT*)(NULL));

以下是MSDN中AddTextEffect函数的链接：
http://msdn.microsoft.com/zh-cn/site/microsoft.office.interop.word.shapes.addtexteffect

[a5796489]

MSDN上明明说最后一个参数为可选，于是我设为空指针，执行这行时报错

• 打赏
• 举报

回复 赞

[a5796489]

.............

• 打赏
• 举报

回复 赞

[赵4老师]

AddTextEffect 方法
请参阅 应用于 示例 特性
创建艺术字对象。返回一个代表新艺术字对象的 Shape 对象。

expression.AddTextEffect(PresetTextEffect, Text, FontName, FontSize, FontBold, FontItalic, Left, Top)

expression 必选。该表达式返回“应用于”列表中的对象之一。

PresetTexture 必选。MsoPresetTexture 类型。预设的文本效果。

MsoPresetTextEffect 可以是下列 MsoPresetTextEffect 类型常数之一。
msoTextEffect1
msoTextEffect2
msoTextEffect3
msoTextEffect4
msoTextEffect5
msoTextEffect6
msoTextEffect7
msoTextEffect8
msoTextEffect9
msoTextEffect10
msoTextEffect11
msoTextEffect12
msoTextEffect13
msoTextEffect14
msoTextEffect15
msoTextEffect16
msoTextEffect17
msoTextEffect18
msoTextEffect19
msoTextEffect20
msoTextEffect21
msoTextEffect22
msoTextEffect23
msoTextEffect24
msoTextEffect25
msoTextEffect26
msoTextEffect27
msoTextEffect28
msoTextEffect29
msoTextEffect30
msoTextEffectMixed


Text 必选。String 类型。艺术字的文本。

FontName 必选。String 类型。艺术字中使用的字体名称。

FontSize 必选。Single 类型。艺术字中使用的字体大小（以磅为单位）。

FontBold 必选。MsoTriState 类型。确定艺术字中使用的字体是否设为粗体。

MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue
msoFalse
msoTriStateMixed
msoTriStateToggle
msoTrue 将艺术字中的字体设为粗体。

FontItalic 必选。MsoTriState 类型。确定艺术字中使用的字体是否设为斜体。

MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue
msoFalse
msoTriStateMixed
msoTriStateToggle
msoTrue 将艺术字中的字体设为斜体。

Left 必选。Single 类型。艺术字边界框左边缘相对于幻灯片左边缘的位置（以磅为单位）。

Top 必选。Single 类型。艺术字边界框上边缘相对于幻灯片上边缘的位置（以磅为单位）。

说明
在文档中添加艺术字时，艺术字的高度和宽度会根据指定文本的大小和数量自动调整。

示例
本示例在 myDocument 中添加包含文本“Test”的艺术字。

Set myDocument = ActivePresentation.Slides(1)
Set newWordArt = myDocument.Shapes _
.AddTextEffect(PresetTextEffect:=msoTextEffect1, _
Text:="Test", FontName:="Arial Black", FontSize:=36, _
FontBold:=msoFalse, FontItalic:=msoFalse, Left:=10, Top:=10)

• 打赏
• 举报

回复 赞

[a5796489]

楼上便宜你了

• 打赏
• 举报

回复 赞