Bỏ chế độ chọn đối tượng trên Excel

[phuonghong1997]

Khi làm việc với Excel, bạn có thể thường xuyên chuyển đổi giữa chế độ chọn đối tượng và chế độ chọn thông thường.
Chẳng hạn khi cần select vào các shape trên Excel, thì ta chọn chế độ chọn đối tượng.
Xin hỏi code VBA nào để thực hiện được việc này ạ.

 

[Euler]

Nếu đang ở chế độ chọn đối tượng và bỏ chọn:

Sub UnSelectObject()
    With Application.CommandBars.FindControl(ID:=182)
        If .State = msoButtonDown Then .Execute
    End With
End Sub

Nếu đang ở chế độ chọn thông thường và bây giờ muốn chuyển qua chọn object:

Sub SelectObject()
    With Application.CommandBars.FindControl(ID:=182)
        If .State = msoButtonUp Then .Execute
    End With
End Sub

Bạn cũng có thể viết ngắn gọn lại thành một thủ tục:

Sub SelectObject(ByVal flg_select_object)
    If flg_select_object = True Then
        With Application.CommandBars.FindControl(ID:=182)
            If .State = msoButtonUp Then .Execute
        End With
    Else
        With Application.CommandBars.FindControl(ID:=182)
            If .State = msoButtonDown Then .Execute
        End With
    End If
End Sub