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

[µo°Ý] OptionButton ¦p¦ó«Å§iÃC¦â(¤w¸Ñ¨M)

[µo°Ý] OptionButton ¦p¦ó«Å§iÃC¦â(¤w¸Ñ¨M)

¥»©«³Ì«á¥Ñ jesscc ©ó 2011-4-21 19:43 ½s¿è

OptionButton ¥H OLEObject ª«¥ó¥X²{®É¡A¤£ª¾¸Ó¦p¦ó«Å§i¥¦ªº¦â±m¤Î¦r«¬¡B¤j¤p?


Set MyButton1 = Worksheets(.[B3].Text).OLEObjects.Add("Forms.OptionButton.1")
With MyButton1
    .Left = 300
    .Top = 0
    .Height = 18
    .Width = 110
    .Object.Caption = "AA"
    .Name = "OptionButton1"
End With
Jess

¦^´_ 1# jesscc


    .BackColor = RGB(255, 0, 0) '­I´ºÃC¦â(¬õ)
.Font.Name = "¼Ð·¢Åé" '¦rÅé
.Font.Bold = True '²ÊÅé
.Font.Size = 9 '¦r«¬¤j¤p
.ForeColor = RGB(0, 0, 255) '¦r«¬ÃC¦â(ÂÅ)
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

³o­Ó¤èªk§Ú¸Õ¹L¡A¥X²{°£¿ù¡A©Ò¥H«Ü¯Ç´e

°õ¦æ¶¥¬q¿ù»~'438':
ª«¥ó¤£¤ä´©¦¹ÄݩʩΤèªk
Jess

TOP

¦^´_ 3# jesscc
  1. Sub nn()
  2. Set MyButton1 = Worksheets(1).OLEObjects.Add("Forms.OptionButton.1")
  3. With MyButton1
  4.     .Left = 300
  5.     .Top = 0
  6.     .Height = 18
  7.     .Width = 110
  8.     .Object.Caption = "AA"
  9.     .Name = "OptionButton2"
  10.     .Object.BackColor = RGB(255, 0, 0) '­I´ºÃC¦â(¬õ)
  11.     .Object.Font.Name = "¼Ð·¢Åé" '¦rÅé
  12.     .Object.Font.Bold = True '²ÊÅé
  13.     .Object.Font.Size = 9 '¦r«¬¤j¤p
  14.     .Object.ForeColor = RGB(0, 0, 255) '¦r«¬ÃC¦â(ÂÅ)
  15. End With
  16. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¥i¥H¥¿±`°õ¦æ¤F¡AÁÂÁ Hsieh ¤j¡A¦A¤@¦¸À°§Ú¸Ñ¨M¤F°ÝÃD¡C
Jess

TOP

        ÀR«ä¦Û¦b : ¯àµ½¥Î®É¶¡ªº¤H¡A¥²¯à´x´¤¦Û¤v§V¤Oªº¤è¦V¡C
ªð¦^¦Cªí ¤W¤@¥DÃD