随着手机里面功能越来越丰富,让我们使用起来越来越方便了,给我们的生活带来了极大的便利。怎样使用V幞洼踉残BA在窗体中预览图片?
工具/原料
手机
方法/步骤
1、首先在开发工具中打开VBA编辑器
2、在单元格区域当中输入一些内容作为例子
3、在VBA编辑器中插入模块
4、在模块当中输入如下代码,然后运行PrivateSubListBox1_Clic氯短赤亻k()OnErrorGoToe鸡堕樱陨rrImage1.Picture=LoadPicture(ThisWorkbook.path&"\图片\"&ListBox1.Text):ExitSuberr:MsgBox"请选择图片名!",64,"提示"EndSubPrivateSubUserForm_Initialize()DimjpgAsString,sAsString,nAsLong,pathAsStringOnErrorGoToerrMe.BackColor=&HFFC0C0'设置窗体背景色Me.ListBox1.BackColor=&HFFFF80'设置列表框背景色path=ThisWorkbook.path&"\图片\"s=Dir(path&"\*.jpg")WhileLen(s)>0n=n+1s=Dir()WendImage1.Picture=LoadPicture(ThisWorkbook.path&"\"&"图片\1.jpg")jpg=Dir(ThisWorkbook.path&"\图片\*.jpg")ListBox1.AddItem"图片列表"ForI=1TonListBox1.AddItemjpgjpg=DirNextIExitSuberr:EndSub
5、用快捷键F5运行窗体,窗体自动加载图片和图片列表,如图