ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ¦³Ãö©ó¼W¯q¶°¦Û­q¤u¨ã¦Cªº¹Ï§Î

[µo°Ý] ¦³Ãö©ó¼W¯q¶°¦Û­q¤u¨ã¦Cªº¹Ï§Î

#µo¿ù¤ÀÃþ­«µo
§Ú§Q¥Îµ{¦¡¦Û»s¼W¯q¶°¤u¨ã¦C¡A¦ý¬O§Ú·Q­n§â§ÚªºMsobuttonStyleÅܦ¨¹Ï¤ù¤¤¥kÃ䨺¼Ëªº§Î¦¡

MsobuttonStyleªº§Î¦¡¦³¤U­±³o¨Ç
msoButtonAutomatic                                   ¹w³]¦æ¬°¡C
msoButtonCaption                                        ¶È¤å¦r¡C
msoButtonIcon                                                      ¶È¹Ï¹³¡C
msoButtonIconAndCaption                              ¹Ï¹³©M¤å¦r (¤å¦r¦ì©ó¹Ï¹³¥k°¼)¡C
msoButtonIconAndCaptionBelow            ¹Ï¹³ (¤U¤è¦³¤å¦r)¡C
msoButtonIconAndWrapCaption             ¹Ï¹³ (¥k°¼¦³´«¦æ¤å¦r)¡C
msoButtonIconAndWrapCaptionBelow ¹Ï¹³ (¤U¤è¦³´«¦æ¤å¦r)¡C
msoButtonWrapCaption                              ¶È¤å¦r (¸m¤¤¥B·|´«¦æ)¡C
§Ú¥Î¤FmsoButtonIconAndCaptionBelow¦ý¬O³£¨SÅÜ¡A¦³°ª¤âª¾¹D«ç»ò§ï¶Ü????????????
  1. Set myButton1 = .Controls.Add(msoControlButton)
  2.         With myButton1
  3.             .Style = msoButtonIconAndCaption '¦P®ÉÅã¥Ü¤å¦r©M¤p¹Ï¥Ü
  4.             .BeginGroup = True
  5.             .Caption = "¨Ï¥Î»¡©ú"            'Åã¥Ü¦b¤u¨ã¦C¤Wªº«ö¶s¤å¦r
  6.             '.TooltipText = "µe­±¿ï¾Ü"        '·Æ¹«²¾¹L¥h®É¡A©ÒÅã¥Üªº´£¥Ü¤å¦r
  7.             .FaceId = 487                    '¤p¹Ï¥Ü
  8.             .Tag = "MyCustomTag"
  9.            .OnAction = "¿ï¾Ü¨Ï¥Î»¡©ú"        '³]©w«ö¤U¦¹Áä®É©Ò­n°õ¦æªº¥¨¶°
  10.         End With
½Æ»s¥N½X
test.rar (125.57 KB)

        ÀR«ä¦Û¦b : §g¤l¦p¤ô¡AÀH¤è´N¶ê¡AµL³B¤£¦Û¦b¡C
ªð¦^¦Cªí ¤W¤@¥DÃD