以下是引用beijingwks在2005-3-20 21:11:00的发言：
抱歉斑竹！没说清楚。
我的原意是文档中粘贴了一个图片或者是插入了一个图片对象，利用VBA使得在某一条件下隐藏或显示该图片，类似VB中可以将其属性的visble置为1或0。
多谢指教！
请参：
'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋
'* Created By I Love You_Word!@ExcelHome 2005-3-24 5:58:16
'仅测试于System: Windows NT Word: 10.0 Language: 2052
'^The Code CopyIn [ThisDocument-ThisDocument]^'
'* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－
Sub ExampleToPicture()
'注意图片为非嵌入式!
Dim MyPicture As Shape, RndNumber As Byte
VBA.Randomize '初始化随机数生成器
RndNumber = Int((10 * Rnd) + 1) '取得一个1~10之间的随机数
Set MyPicture = ActiveDocument.Shapes(1)
With MyPicture
If .Type = msoPicture Then '确定是图片
If RndNumber < 5 Then '小于5隐藏该图片
.Visible = msoFalse
Else
.Visible = msoCTrue '显示图片
'设置宽度与高度分别等于随数值
.Width = Application.CentimetersToPoints(RndNumber)
.Height = Application.CentimetersToPoints(RndNumber)
End If
End If
End With
End Sub
'---------------------- | 
沪公网安备 31011702000001号 沪ICP备11019229号-2
发表于 2005-3-19 23:19
楼主