兰版欠我一代码

hhzjxss 发表于 2007-6-14 15:26

今天看兰版的《Excel VBA基础入门》时，发现P232的那个显示FACEID的代码在附光盘里面地没有，又不想自己去打那么多英文，呵，只好找兰版要了！

xiaoxue3850 发表于 2007-6-14 15:38

哈哈，那天我硬是让教授给我学了FACEID的代码

兰色幻想 发表于 2007-6-14 15:40

找到自定义菜单、工具栏命令这个文件 模块4中有显示ID的程序

hhzjxss 发表于 2007-6-14 15:42

我开始看了，还以为是菜单的呢，电脑把眼睛都看花了！汗！

xiaoxue3850 发表于 2007-6-14 15:42

以下是教授写的代码子过程            EmunCommandBarControls' 目的'                   枚举 CommandBarControl'' 修订''   修订编号    作者        日期        E-mail'   ----------------------------------------------------------'   RV000001    李宏业      <chsdate wst="on" isrocdate="False" islunardate="False" day="3" year="2007">2007-06-03</chsdate>  hongyeli620@hotmail.com'   RV000002    李宏业      <chsdate wst="on" isrocdate="False" islunardate="False" day="3" year="2007">2007-06-03</chsdate>  hongyeli620@hotmail.com''' 修订详细说明''   RV000001        创建结构'   RV000002        编写代码'Public Sub EmunCommandBarControls() Dim oCommandBar As CommandBarDim oCommandBarControl As CommandBarControl Dim lLoop As Long Dim sMessage As String ' * 错误源Dim sSource As StringOn Error Resume Next        Application.ScreenUpdating = False    Application.EnableEvents = False        lLoop = 2    For Each oCommandBar In Application.CommandBars        For Each oCommandBarControl In oCommandBar.Controls            Cells(lLoop, 1).Value = oCommandBar.Name            Cells(lLoop, 2).Value = oCommandBarControl.Caption            Cells(lLoop, 3).Value = oCommandBarControl.FaceId                        oCommandBarControl.CopyFace                        Call Cells(lLoop, 4).Activate            Call ActiveSheet.PasteSpecial( _                Format:="Bitmap")                        lLoop = lLoop + 1        Next oCommandBarControl    Next oCommandBar Exit_Label:On Error GoTo 0    Set oCommandBarControl = Nothing    Set oCommandBar = Nothing        Application.ScreenUpdating = True    Application.EnableEvents = True    Exit SubErr_Handler:    sMessage = "枚举 CommandBarControl 时出错。"     ' * 显示友好的错误信息    MsgBox sMessage, vbExclamation     GoTo Exit_Label End Sub

特特发表于 2007-6-14 15:59

好霸道的语气

页: [1]

Excel精英培训网's Archiver

兰版欠我一代码