随心所欲设置按钮的图片(适用于Word、Excel、PowerPoint)

foolish_tyu

刚用了gzy316的方法，一切OK。 简单，好

下一位

谢谢！UP

天下一家

谢谢gzy316！

dengruif

精彩

谢谢

wx_feng

以下是引用gzy316在2002-9-8 8:19:00的发言： 实际上你只要在自定义对话框打开的情况下，单击工具栏上的按钮，会弹出一个快捷菜单其中就有更改、粘贴、复制按钮图标的命令，你可以将剪贴板中的图片粘贴过来即可，不必用什么VBA了

这一招不错，好用方便!

konggs

很好的，很好用。

只不过，API的调用

Private Declare Function LoadImage Lib "user32" Alias "LoadImageA" (ByVal hInst As Long, ByVal lpsz As String, ByVal dwImageType As Long, ByVal dwDesiredWidth As Long, ByVal dwDesiredHeight As Long, ByVal dwFlags As Long) As Long Private Declare Function CloseClipboard Lib "user32" () As Long Private Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long Private Declare Function EmptyClipboard Lib "user32" () As Long Private Declare Function SetClipboardData Lib "user32" (ByVal wFormat As Long, ByVal hMem As Long) As Long Private Declare Function GetForegroundWindow Lib "user32" () As Long

一个都没看懂。但用起来方便。

系统是wind2000,加office2003.

另：复制、粘贴也方便。刚看到，简单明了。

[此贴子已经被作者于2005-10-14 20:17:42编辑过]

xthand

其实可以这样的，插入一个窗体，在窗体上加个图片框，设置图片框picture属性，选择你要的图片，把你自己创建的按钮的picture属性设置为图片框picture属性，我在Excel中是这样做的，别的不知可不可以，大家可以试一试

代码类似这样

Public Sub Createbar() Dim objbar As CommandBar Dim objbtn As CommandBarButton On Error GoTo Errhand Set objbar = Application.CommandBars("Standard") Set objbtn = objbar.Controls.Add(Type:=msoControlButton, Before:=objbar.Controls.Count, Temporary:=True) With objbtn .BeginGroup = True .Style = msoButtonIconAndCaption .Picture = frmPic.Img1.Picture 'frmpic是个窗体，Img1是个图片框 .Caption = "GetData" .TooltipText = "TEST" .OnAction = "ExecCmd" .Tag = "GetData" End With Exit Sub Errhand: MsgBox "出错啦" & vbCrLf & Err.Description, vbCritical, "Error" End Sub

守柔

没有必要非得使用API，17楼的方法更好，WORD中也可以使用。

如:

http://club.excelhome.net/viewth ... D=333944&skin=1

ivanpeng

下了,谢谢

byl2005

高 学习学习