VBA常用技巧代码解析

Collinexcel · 发表于 2009-4-19 22:41

版主你好，
我在使用如下一段程序(简略版)来调用Outlook 2003发送邮件，但邮件字体及行距还无法控制，能否支支招？
      Dim OlApp As Outlook.Application
      Dim Email As Outlook.MailItem

      Set OlApp = CreateObject("Outlook.Application")
      Set Email = OlApp.CreateItem(olMailItem)
      With Email
         .Subject = Sheets......
         .To = Sheets......
         .CC = Sheets......
         .Attachments.Add Application.ThisWorkbook.Path & "\" & "Wkly Report.xls "
         .BodyFormat = olFormatHTML
         .HTMLBody = "<html><body><h>" & ......& "</p></body></html>"
         .Display
      End With

xq1234 · 发表于 2009-4-20 00:43

这个贴子的确不错,是从入门到高级的好教材

menghuazhang · 发表于 2009-4-20 16:01

技巧4       定位单元格
   在Excel中使用定位对话框可以选中工作表中特定的单元格区域，而在VBA中则使用SpecialCells方法，如下面的代码所示。
复制内容到剪贴板代码:

#001  Sub SpecialAddress()
#002    Dim rng As Range
#003    Set rng = Sheet1.UsedRange.SpecialCells(xlCellTypeFormulas) (赋予等号左边变量rng的是单元格的值还是地址？
#004    rng.Select
#005    MsgBox "工作表中有公式的单元格为： " & rng.Address
#006    Set rng = Nothing （这句代码是什么意思？
#007  End Sub

yuanzhuping · 发表于 2009-4-20 17:12

原帖由 menghuazhang 于 2009-4-20 16:01 发表
技巧4       定位单元格
   在Excel中使用定位对话框可以选中工作表中特定的单元格区域，而在VBA中则使用SpecialCells方法，如下面的代码所示。
复制内容到剪贴板代码:

#001  Sub SpecialAddress()
#002 ...

http://club.excelhome.net/viewth ... ;page=44#pid2614723

janyan99 · 发表于 2009-4-20 21:34

感謝分享!!

這可以提升我的vba實力，終於找到了!!

謝謝!!

yuanzhuping · 发表于 2009-4-20 22:23

技巧126 显示GIF动画图片
如果希望在Excel中显示GIF格式的动画图片，可以使用AniGif控件。
步骤1，在工作表中单击菜单“视图”→“工具栏”→“控件工具箱”→“其他控件”，选择“VBAniGIF. AniGif”后在工作表中拖动添加AniGif控件，如图所示。

如果“其他控件”中没有该控件，那么需要对该控件进行注册。注册控件请参阅技巧118 。AniGif控件的文件名为VBAniGIF.OCX，也可以在工作表中单击菜单“视图”→“工具栏”→“控件工具箱”→“其他控件”，选择“注册自定义控件”，在显示的对话框中选择VBAniGIF.OCX文件进行注册，如图所示。

步骤2，在设计模式下右键单击AniGif控件，选择“属性”，设置AniGif控件的Filename属性为CIF图片所在的路径，如图所示。

可以使用代码设置AniGif控件的Filename属性，如下面的代码所示。

#001 Private Sub Workbook_Open()
#002 Sheet1.AniGif1.Filename = ThisWorkbook.Path & "\001.gif"
#003 End Sub

复制代码

代码解析：
工作簿打开时将AniGif控件的Filename属性设置为同一目录中的“001.gif”文件。
工作簿打开时可能出现如图所示的对话框，这是因为当打开包含ActiveX控件的文件时，如果该控件被标识为初始化不安全时，Office程序不加载或激活未被标志为初始化安全的ActiveX控件。

解决此问题的方法是更改Office程序处理ActiveX组件的方式，需要对注册表进行修改。也可以使用以下代码修改注册表：

#001 Sub RegWriteProc()
#002 Dim WshShell
#003 Set WshShell = CreateObject("Wscript.Shell")
#004 WshShell.RegWrite "HKCU\Software\Microsoft\Office\Common\Security\UFIControls", 1, "REG_DWORD"
#005 WshShell.RegWrite "HKCU\Software\Microsoft\VBA\Security\LoadControlsInForms", 1, "REG_DWORD"
#006 Set WshShell = Nothing
#007 End Sub

复制代码

代码解析：
RegWriteProc过程修改注册表设置。第4行代码将UFIControls子项设置为1（最不安全）。第5行代码将LoadControlsInForms子项设置为1（最不安全）。关于为ActiveX控件授予权限请参阅微软的技术文章：http://support.microsoft.com/kb/827742/zh-cn
退出设计模式后，将在工作表中显示GIF动画图片，如图所示。

yuanzhuping · 发表于 2009-4-20 22:43

技巧127 播放Flash文件
如果需要在工作表中播放Flash文件，那么可以使用ShockwaveFlash控件。
步骤1，在工作表中单击菜单“视图”→“工具栏”→“控件工具箱”→“其他控件”，选择“ShocKwave Flash Object”后在工作表中拖动添加ShockwaveFlash控件，如图所示。

如果“其他控件”中没有该控件，请参阅技巧126 对其进行注册，ShockwaveFlash控件的文件名为Flash9d.OCX。
步骤2，在设计模式下右键单击ShockwaveFlash控件，选择“属性”，设置ShockwaveFlash控件的Base属性和Movie属性为Flash文件所在的路径，设置Embedmovie属性为True，使Flash文件嵌入到Excel中，如图所示。

可以使用代码设置ShockwaveFlash控件的各项属性，如下面的代码所示。

#001 Private Sub Workbook_Open()
#002 With Sheet1.ShockwaveFlash1
#003 .Base = ThisWorkbook.Path & "\face.swf"
#004 .Movie = ThisWorkbook.Path & "\face.swf"
#005 .EmbedMovie = True
#006 End With
#007 End Sub

复制代码

代码解析：
工作簿打开时将ShockwaveFlash控件的Base属性和Movie属性设置为同一目录中的“face.swf”文件，设置Embedmovie属性为True。
退出设计模式后，将在工作表中显示Flash动画，如图所示。

sucful · 发表于 2009-4-21 01:37

33345465555555

05507642 · 发表于 2009-4-21 10:34

每天更新，每天学习

yangdianmei · 发表于 2009-4-21 19:40

每天再忙都要抽出半个小时来跟进.不知不觉中似乎闻到一点VBA的味道.

		自动登录	找回密码
密码			免费注册

VBA常用技巧代码解析

回复 791楼 yuanzhuping 的帖子

请教。。。。。。。

第8部分控件与用户窗体

评分

第8部分控件与用户窗体

VBA常用技巧代码解析

回复 791楼 yuanzhuping 的帖子

请教。。。。。。。

第8部分 控件与用户窗体

评分

第8部分 控件与用户窗体

第8部分控件与用户窗体

第8部分控件与用户窗体