2013-09-27 82 views
1

在“ActiveSheet.Buttons”中,我得到按钮的大小,但不是我想要的文本,它只显示“按钮1”(无论显示哪个数字)。任何人都可以告诉我如何获得按钮中的自定义文本?Excel VB按钮

Sub AT() 
    Sheets("134B").Select 
    Sheets("New Tab").Visible = True 
    Sheets("New Tab").Select 
    ActiveSheet.Buttons.Add(0.75, 0.75, 36, 28.5).Select 
    ActiveSheet.Buttons.Add(37.5, 0.75, 17.25, 28.5).Select 
    ActiveSheet.Buttons.Add(55.5, 0.75, 17.25, 28.5).Select 
    ActiveSheet.Buttons.Add(73.5, 0.75, 36, 28.5).Select 
    Sheets("New Tab").Copy Before:=Sheets(3) 
    Sheets("New Tab").Select 
    ActiveWindow.SelectedSheets.Visible = False 
    Sheets("New Tab (2)").Select 
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst 
    Sheets("DB").Select 
    Range("J23").Select 
End Sub 

回答

3
ActiveSheet.Buttons.Add(0.75, 0.75, 36, 28.5).Caption= "Hi!" 
+1

+1,打我吧:) – tigeravatar

+0

@tigeravatar:最近,他被称为为...只是祈祷他没有他的咖啡:P –