Office中国论坛/Access中国论坛

标题: 隐藏显示图片 [打印本页]

作者: joyark 时间: 2011-8-10 03:46
标题: 隐藏显示图片
本帖最后由 joyark 于 2011-8-10 03:48 编辑

Private Sub CommandButton11_Click() '隐藏图片按钮
ActiveSheet.DrawingObjects.Visible = False '已隐藏当前工作表图片
MsgBox "已隐藏图形"
End Sub
显示图片

Private Sub CommandButton12_Click() '显示图片按钮
ActiveSheet.DrawingObjects.Visible = True '已显示当前工作表图片
MsgBox "已显示图形"
End Sub

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)