作者:乔山办公网日期:
返回目录:excel表格制作
见附件
image的属性picture
实现A1+1很简单
把下百面代度码复制进工作表的宏知代码框
然后选择 开发工具道--插入按钮--选择“专A1加属1()”这个宏即可
Sub A1加1()
Range("A2").Select
Dim i
i = Range("a1")
Range("a1") = i + 1
End Sub
1、选择菜单:视图 → 工具栏 → 控件工具箱 调出【控件工具箱】
2、在百【控件工具箱】中点选“图片”按钮,在excel中画出一个图度片框
3、在图片框上右键选“属性”,单击Picture属性右侧的按钮,设置要显示的图片,修改PictureSizeMode属性为1-fmPicture……
4、在【控件工具箱】中点回选“按钮”按钮,在excel中画出一个命令按钮
5、双击命令按钮,在弹出的代码窗口中输入如下代码:
Private Sub CommandButton1_Click()
If Image1.Visible = False Then
Image1.Visible = True
CommandButton1.Caption = "隐藏图片"
Else
Image1.Visible = False
CommandButton1.Caption = "显示图片"
End If
End Sub
6、单击代码窗口的运行按钮
在excel中单击命令按钮试试看,是答你要的结果吗?