excel vba - 자동 모양 그리기를 활성화하는 버튼

2007 년 이전, 모든 것이 CommandBarButton 였습니다. ID 와 함께 . 당신은 그 CommandBarButton 를 잡아 Execute 를 호출 할 수 있습니다.  방법.

Office 2007은 명령 모음을 버리고 리본을 도입했습니다. 일부 명령 모음은 여전히 ​​사용 가능하며 예전과 같이사용할 수 있습니다. 그러나 내가 볼 수있는 한 CommandBarButton 는 없습니다.  "모양"또는 "커넥터"와 원격으로 연결됩니다.

이 방법을 사용하고 있습니다 :

Public Sub FindCmdBarControl(ByVal name As String)
    Dim cmdbar As CommandBar
    For Each cmdbar In Application.CommandBars
        Dim ctrl As CommandBarControl
        For Each ctrl In cmdbar.Controls
            If ctrl.TooltipText Like "*" & name & "*" Or ctrl.Caption Like "*" & name & "*" Then
                Debug.Print cmdbar.name, ctrl.Caption, ctrl.TooltipText, ctrl.ID
            End If
        Next
    Next
End Sub

...하지만 FindCmdBarControl "line" 실행  이 출력을 생성합니다 :

Formatting    &Underline    &Underline (Ctrl+U)          115 
Cell          Sp&arklines                  31623 
Series        Add T&rendline...           Add T&rendline...            914 
Format Data Series          Add T&rendline...           Add T&rendline...            914 
List Range Popup            Sp&arklines                  31623 
Nil           &Line         Insert Line Sparkline        18927 
Nil           &Column       Insert Column Sparkline      18928 
Nil           &Win/Loss     Insert Win/Loss Sparkline    18929 
Nil           Edit &Single Sparkline's Data...          Edit &Single Sparkline's Data...           19223 
Nil           &Group        Group Selected Sparklines    19226 
Nil           &Ungroup      Ungroup Selected Sparklines  19227 
Nil           &Clear Selected Sparklines  &Clear Selected Sparklines   19229 
Nil           C&lear Selected Sparkline Groups          C&lear Selected Sparkline Groups           19230 
Nil           &Hidden && Empty Cells...   Sparkline Hidden && Empty Cells            19224 
Nil           &More Colors...             More Sparkline Colors        19451 
Nil           Custom &Weight...           Sparkline Custom Weight      19453 
Nil           &Line         Convert to Line Sparkline    20450 
Nil           &Column       Convert to Column Sparkline  20451 
Nil           &Win/Loss     Convert to Win/Loss Sparkline              20452 
Nil           &More Colors...             More Sparkline Negative Point Colors       20473 
Nil           &More Colors...             More Sparkline Marker Colors               20474 
Nil           &More Colors...             More Sparkline High Point Colors           20475 
Nil           &More Colors...             More Sparkline Low Point Colors            20476 
Nil           &More Colors...             More Sparkline First Point Colors          20477 
Nil           &More Colors...             More Sparkline Last Point Colors           20478 
Line Color    &More Outline Colors...     &More Outline Colors...      1052 
Built-in Menus              &Group and Outline                         30032

그래서 &Underline 를 불러 내고 싶다고 해  명령 (ID 115)을 사용하면 다음을 수행 할 수 있습니다.

Application.CommandBars("Formatting").FindControl(ID:=115).Execute

FindCmdBarControl "connector" 를 실행  아무것도 얻지 못하고 아이디어가 없습니다. 찾고있는 것에 대한 명령 ID를 찾을 수 있는지 확인하십시오 ... 단, 이미 리본에 원하는 것을 정확하게 수행하는 내장 버튼이 있습니다 (사용자가 커넥터를 그릴 수있게하십시오) ...

응답 해 주셔서 감사합니다. 커넥터에서 ID를 찾았습니다.

Application.CommandBars("Connectors").FindControl(ID:=1042).Execute