액티브 명령 단추를 만들고

Question

내가 내가 액티브 X 명령 단추를 만들 수있을 것입니다 코드와 코드의 기능 중 하나를 만드는거야하지만 난 버튼을 생성하기 위해 코드가 필요합니다, 여기에 도움을 필요로 그 버튼에 매크로를 지정하는 매크로 및

그래서 내가 액티브 X 버튼 "CommandButton1을"를 작성하는 매크로가 필요 그것에 ") (서브 이식"매크로를 할당하고

Private Sub CommandButton1_Click()  
Call graft()  
End sub 

내가 버튼을 만드는 방법을 알고있는 코드를 할당하지만 난 코드를 할당하는 방법을 찾을 수 없습니다.이 단추는 ActiveWorkbook의 "Gráfico"라는 워크 시트에 만들어집니다.

버튼 생성 및 배치 코드

ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False _ 
, DisplayAsIcon:=False, Left:=1200, Top:=20, _ 
Width:=100, Height:=30).Select 

ActiveSheet.Shapes.Range(Array("CommandButton1")).Select 
Selection.Cut 
Cells(lline + 26, 1).Select 
ActiveSheet.Paste 

CutCopyMode = False 

Answer 1

이것을 시험해보십시오. 코드를 조금 수정해야하지만 코드 배치 위치에 버튼을 배치하고 버튼에 캡션을 지정하고 매크로에 "접목"매크로를 지정합니다.

Using를 사용하여 select 문을 피하려면 명령 단추의 속성을 적절하게 지정하십시오.

Sub CreateButton() 

    Dim newButton As Object 
    Set newButton = ActiveSheet.Buttons.Add(1200, 20, 100, 30) 

    With newButton 
     .OnAction = "graft" 
     .Caption = "Graft" 
    End With 

End Sub