加载宏除了加载时能生成菜单栏和工具栏外，能不能生成命令按钮或用户窗体

samguoxufeng

小的不才，在论坛上边看一些方法，边实践，但是都没有成功在加载宏的时候自动在工作表里面生成一个按钮，我是想生成按钮，不是菜单或者工具栏图标。先把大概的操作过程给各位大神看一下，我把下面的代码放在workbook的addininstall或者open里面的话，每次都得点加载项（就是加载宏的方法）
如图： 然后，工作表才会生成一个命令按钮（普通的，不是在窗体上的）
Private Sub Workbook_AddinInstall()
Dim sha
Dim vbaaa
Set sha = Sheet1.Buttons.Add(69, 39, 75, 33)
For i = 1 To Workbooks.Count
    If Workbooks(i).Name <> abcdefg Then
        Workbooks(i).Activate

Set vbaaa = ActiveWorkbook.Sheets("sheet1").Buttons.Add(69, 39, 75, 33)

End If
Next
End Sub


或者说，加载宏第一手动加载后，以后怎么打开一个新工作薄的时候，自动就添加一个按钮呀？有办法实现吗？因为如果每次打开一个新的工作薄都手动加载需要的加载宏的话（必须得把原先已经加载的加载宏或者说加载项手动取消，然后又手动加载它，按钮才会出现）
还有我的文件，保存为加载宏后。在别的工作薄里，按钮的话手动点加载（或者加载，取消，加载。。。。。）就可以生成按钮。
生成窗体的那个在第一次加载的时候没问题，但是第二次打开的时候就会出现只能打开加载宏，工作薄灰屏的现象，而且所有工作薄都是。这个时候只能按新建一个工作薄，然后把加载项取消，工作薄才会回复正常。
加载宏动态生成按钮或窗体.zip (29.78 KB, 下载次数: 115)

2013-10-1 21:16 上传

点击文件名下载附件
里面两个文件，一个是想生成动态按钮一个是想生成窗体

请教大神：加载宏的加载过程是怎么样的？只是在第一次加载的时候才会有open等事件的发生吗？要不然为什么不能每次打开新工作薄的时候都生成一个动态按钮，或者说给新打开的工作薄新建一个表（我试过，但打开新文件后却是给加载宏文件新建表了）。
大神，帮帮忙吧~~~~感激不尽。。。。。。。因为我需要的操作是：每次新建一个excel文件，就自动生成一个命令按钮（要不然，自动给a1单元格赋值也行，主要是没有思路，因为不清楚加载宏的运行过程）哦，补充一句：窗体那个，我按F8手动运行里面的某些代码，就会出现中断模式的错误。

山菊花

将带有按钮、窗体的文件另存为“启用宏的模板”。


1、手工新建工作簿。在Excel2010中，点击“文件－新建－我的模板”，在新窗口中选择合适的模板。


2、利用加载宏创建新工作簿。附件中，包含一个加载宏文件和两个模板，模板保存位置为“C:\Documents and Settings\Administrator\Application Data\Microsoft\Templates\”，如果模板保存到其它位置，需要修改加载宏中对应的路径信息。启用加载宏后，点击“开始”选项卡，可见两个新建按钮，可选择新建对应的工作簿。


3、如果所有新建的工作簿都使用同一模板，可将该模板设置为默认工作簿模板。

samguoxufeng

山菊花 发表于 2013-10-2 16:44
将带有按钮、窗体的文件另存为“启用宏的模板”。

谢谢，好久没有上了，方法似乎不错。。。。。。。。

销香叶雨

学习一下如何使用“加载宏”