可使用VBA可进行如下 *** 作。
假设图片名分别为"图片 1"和"图片 2"。
1、插入两个选项控件(菜单栏,开发工具,插入,activex控件)
2、复制如下代码到该sheet模块中。
3、回到sheet界面即可实现该 *** 作。
Private Sub OptionButton1_Change()If OptionButton1.Value = True Then Worksheets(1).Shapes("图片 1").Visible = True
If OptionButton1.Value = False Then Worksheets(1).Shapes("图片 1").Visible = False
End Sub
Private Sub OptionButton2_Change()
If OptionButton2.Value = True Then Worksheets(1).Shapes("图片 2").Visible = True
If OptionButton2.Value = False Then Worksheets(1).Shapes("图片 2").Visible = False
End Sub
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)