ExcelVBfAorm窗体随机调用图片.docxVIP

Excel VBA随机调用图片时的几个细节 (2009-01-02 18:56:05) 转载标签：excelvba图片随机调用 分类：EXCEL及其VBA 载自：/s/blog_58260f420100bv9t.html 假如：在Excel工作簿里有一个名为“关机画面”的表，在VBA里插入一个窗体，窗体里有一个Image1图片控件，在该工作簿所在目录下有一个\系统工具\图片\关机画面的子目录，里面放一些图片。那么，在窗体的UserForm_Activate事件里编辑后面所述的代码，则窗体运行时会从图片目录里随机选择一张图片，显示在窗体上，然后再随机选择一张图片，显示在sheet表里。初始程序编好之后，反复调试很长时间才彻底成功，其中几个非常耗时的细节： 1、在sheet表里直接插入的图片是pictures集合，而不是shapes集合。这个图片只能用.Pictures.Insert(图片文件的含路径的全名) .Name = ……创建，不能用：.Shapes.Addshape(Type:=msopicture,Left:=……)创建但是这个pictures集合里的图片却可以用.Shapes(……).Delete删除。挺奇怪！这是调试耗时很长的一个主要原因。 2、用 .Shapes.Addshape(Type:=msopicture,Left:=……)也可以在Sheet里创建图片，但是如何命名，又如何调整大小，由于资料有限，我无法做深入的分析。 3、窗体里的图片控件用Image1.Picture = LoadPicture(文件名)装载图片。 4、j = Int((n * Rnd) + 1)，生成的是1～n之间的一个随机整数。 5、用with……end with语句编辑代码时，我忘记在 Width 前加点“.” ，这给调试代码带来很大的困惑。 6、窗体里的图片尺寸调整起来很容易，只需要把图片的PictureSizeMode属性设置为3，即fmPictureModeRoom（图片自动适应控件）即可，不必再单独编写代码。 7、需要特别注意的是，仅仅用Rnd（）函数生成的并不是真正的随机数，这些数会有固定的序列，因此，从打开文件开始，如果没有重复调用图片，显示的会总是那几张图片。必须要用 Randomize 初始化一下随机数的种子，如此调用的图片才是真正随机的。----------------------------------------------------------------Private Sub UserForm_Activate()查找图片Dim 查找图片 As FileSearchDim 图片路径 As StringDim i As Long, n As Long, j As LongSet 查找图片 = Application.FileSearch图片路径 = ThisWorkbook.Path \系统工具\图片\关机画面With 查找图片.NewSearch.LookIn = 图片路径.FileType = msoFileTypeAllFiles.Filename = *.*.SearchSubFolders = True随机选择一张图片，抽取出来读入窗体、读入关机画面If .Execute(SortBy:=msoSortByFileName) 0 Thenn = .FoundFiles.CountReDim 图集(1 To n) As Stringj = Int((n * Rnd) + 1)调入图片到窗体Image1.Picture = LoadPicture(.FoundFiles(j))调入图片到表（关机画面）Randomizej = Int((n * Rnd) + 1)Sheets(关机画面).Visible = 1On Error Resume NextSheets(关机画面).Shapes(关机画面).DeleteWith Sheets(关机画面).Pictures.Insert(.FoundFiles(j)).Name = 关机画面.LockAspectRatio = msoTrue.Left = 0.Top = 0.Width = .Width * 425 / .Height.Height = 425.Left = 380 - .Width / 2End WithElseMsgBox 图片保存位置： Chr(10) Chr(10) 图片路径 _ Chr(10) Chr(10) 里面没有图片，请导入要随机显示的图片集。End IfEnd WithSet 查找图片 = NothingDoEve