>

붙었다. 나는 높고 낮게, 멀리, 넓게 검색했습니다. 그리고 나는 해결책을 찾을 수 없습니다.

양식 컨트롤 버튼을 통해 도형 개체에서 선 도구를 활성화 할 수 있습니까?

매크로를 통해 고정 위치에서 선을 그리는 방법을 알고 있지만 사용자가 자신의 선을 그리 길 원합니다.

ActiveSheet.Shapes.AddConnector(msoConnectorStraight, 88.8, 447.6, 168.6, 480.6 _
    ).Select

그리기 도구를 활성화하지만 실제로 그리지 않고 사용자가 나머지 프로세스를 직접 완료 할 수있는 방법이 있습니까?

미리 감사합니다,

티비

  • 답변 # 1

    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를 찾을 수 있는지 확인하십시오 ... 단, 이미 리본에 원하는 것을 정확하게 수행하는 내장 버튼이 있습니다 (사용자가 커넥터를 그릴 수있게하십시오) ...

  • 답변 # 2

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

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

  • 이전 Jupyter 노트북에서 sink ()를 사용하여 R 출력을 저장하는 방법은 무엇입니까?
  • 다음 java - buffWrite 또는 FileWriter를 사용하여 XML 파일을 여러 파일로 분할