Powerpoint2007里VBA的问题

[YUYAO2]

在PowerPoint2007中，背景纹理填充样式属性PresetTexture，它的值为什么总是-2，不管我选什么填充样式，它的值就是不变，都是-2，请问有人遇到过吗？这个是什么原因？难道背景纹理填充样式的属性不是PresetTexture？

[getemail]

碰到过这个问题

[YUYAO2]

那如果我要得到背景纹理填充的值，该怎么取？

[舉杯邀明月]

这个....只能帮顶...........

[cBirdNO1NO1]

with ActiveWindow.Selection.ShapeRange
.Fill.ForeColor.RGB = RGB(0, 102, 0)
.Fill.Transparency = 0#
.Fill.PresetTextured msoTextureGreenMarble
End With

[YUYAO2]

谢谢了，但是
你这段是进行背景纹理填充设置的，我就是想得到填充的是哪个图案，也就是说得到这个值：msoTextureGreenMarble，我搜了好多都是指PresetTexture这个属性，但是这个属性在powerpoint2007中，永远都是一个值

[YUYAO2]

都没有人碰到过这个问题吗？

[贝隆]

关注，帮顶

[jhdzwq]

kan kan shif keyi huifu

[jhdzwq]

MsoPresetTexture 指定用于填充形状的纹理。
下面是这个集合的枚举变量名和对应的值以及你需要知道的那种图片。
msoPresetTextureMixed -2 未使用。
msoTextureBlueTissuePaper 17 蓝色砂纸纹理。
msoTextureBouquet 20 花束纹理。
msoTextureBrownMarble 11 褐色大理石纹理。
msoTextureCanvas 2 画布纹理。
msoTextureCork 21 软木塞纹理。
msoTextureDenim 3 布纹理。
msoTextureFishFossil 7 鱼类化石纹理。
msoTextureGranite 12 花岗岩纹理。
msoTextureGreenMarble 9 绿色大理石纹理。
msoTextureMediumWood 24 深色木质纹理。
msoTextureNewsprint 13 新闻纸纹理。
msoTextureOak 23 橡木纹理。
msoTexturePaperBag 6 纸袋纹理。
msoTexturePapyrus 1 纸莎草纸纹理。
msoTextureParchment 15 羊皮纸纹理。
msoTexturePinkTissuePaper 18 粉色砂纸纹理。
msoTexturePurpleMesh 19 紫色网格纹理。
msoTextureRecycledPaper 14 再生纸纹理。
msoTextureSand 8 沙滩纹理。
msoTextureStationery 16 信纸纹理。
msoTextureWalnut 22 胡桃纹理。
msoTextureWaterDroplets 5 水滴纹理。
msoTextureWhiteMarble 10 白色大理石纹理。
msoTextureWovenMat 4 编织物纹理。

最近我也在学习这个， 如果有问题和相互讨论。