为工具栏按钮添加个性化自定义图标

mobuli · 发表于 2009-6-29 09:32

谢谢版主，很实用

KingSire · 发表于 2009-5-13 00:44

谢谢清版的分享，请问如果我不要图标，只要文字呢？该如何改写呀？

hacker120 · 发表于 2009-4-21 15:06

还行吧，学习了

挚友 · 发表于 2009-4-29 10:01

With xButton
      .Picture = Sheet1.Image1.Picture ' = LoadPicture("D:\new.BMP")
      .Mask = Sheet1.Image2.Picture ' = LoadPicture("D:\open.BMP")
      .OnAction = "xButton_Click"
      .TooltipText = "ExcelHome论坛"
End With
改成自已的图标怎么不好使，主要还是没看明白程序
cture = Sheet1.Image1.Picture image1 是怎么定义的?怎么增加图标?

泓() · 发表于 2009-6-25 19:12

非常感谢清风斑竹的分享!收藏了.

weng · 发表于 2009-6-28 09:48

YZLSZAJ · 发表于 2009-11-1 08:46

谢谢清风版主。

lmj8260 · 发表于 2010-6-6 11:18

学习学习，精华之作

liuyan819 · 发表于 2010-8-13 21:49

谢谢分享,学习了

bdwjh · 发表于 2010-8-13 19:31

rtrtrertreter

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