Tạo menu riêng khi click chuột phải vào shapes

[nguyenkhoadng]

Em đang tìm hiểu cách tạo menu chuột phải trên shapes, mà tìm trên diễn đàn thấy nhiều hướng dẫn về tạo menu chuột phải trên cell thôi, nhờ các anh trên GPE giúp em với ạ.
Chúc cả nhà GPE có ngày lễ vui vẻ.

 

[dovanhoc84]

Em đang tìm hiểu cách tạo menu chuột phải trên shapes, mà tìm trên diễn đàn thấy nhiều hướng dẫn về tạo menu chuột phải trên cell thôi, nhờ các anh trên GPE giúp em với ạ.
Chúc cả nhà GPE có ngày lễ vui vẻ.

Anh gú gồ kể về 1 đứa hỏi y như thớt này.

As I understand, You want to add a macro that, when ran, would create another shape (?). IF that's true, you can run something like:

Sub AddShape ()
Sheets("YourSheetName").Shapes.AddShape(msoShapeRectangle, 35.25, 30.75, 121.5, 51.75).Select
'Add some additional info like name and style, or even attach another macro to it:   
Selection.ShapeRange.Name = "Test_Name"
Selection.ShapeRange.ShapeStyle = msoShapeStylePreset36
Selection.OnAction = "Testmacro"
End Sub

Sub TestMacro
MsgBox "Hello"   
EndSub

Xong cái thằng thớt kia nó nói: K tao k định tạo shapes mới, tao chỉ muốn thêm item mới vào menu....

Thế còn thớt này k nói ra định làm gì với cái menu mới thì ai biết trong đầu ông nghĩ gì?

 

[nguyenkhoadng]

Anh gú gồ kể về 1 đứa hỏi y như thớt này.

As I understand, You want to add a macro that, when ran, would create another shape (?). IF that's true, you can run something like:

Sub AddShape ()
Sheets("YourSheetName").Shapes.AddShape(msoShapeRectangle, 35.25, 30.75, 121.5, 51.75).Select
'Add some additional info like name and style, or even attach another macro to it:  
Selection.ShapeRange.Name = "Test_Name"
Selection.ShapeRange.ShapeStyle = msoShapeStylePreset36
Selection.OnAction = "Testmacro"
End Sub

Sub TestMacro
MsgBox "Hello"  
EndSub

Xong cái thằng thớt kia nó nói: K tao k định tạo shapes mới, tao chỉ muốn thêm item mới vào menu....

Thế còn thớt này k nói ra định làm gì với cái menu mới thì ai biết trong đầu ông nghĩ gì?

bạn vui tính quá
Mình hỏi để muốn tạo menu riêng khi click chuột phải vào shapes. còn cái này là tạo ra shapes rồi

 

[dovanhoc84]

bạn vui tính quá
Mình hỏi để muốn tạo menu riêng khi click chuột phải vào shapes. còn cái này là tạo ra shapes rồi

Nếu office dưới 2013 thì thiên hạ đồn bào dùng cái này:

Sub test1()
    With Application
        With .CommandBars("Shapes")
            .Reset
            With .Controls.Add(Type:=msoControlPopup, before:=1)
                .Caption = "abc"
            End With
        End With
    End With
End Sub

Còn sau 2013 thì thiên hạ đồn là có nhiều thay đổi nên thay vì chuột phải mà chuột trái thì thử dùng cái này:

Sub test2()
Application.CommandBars("Shapes").ShowPopup
End Sub

Bài đã được tự động gộp: 14/4/19

nhầm, k phải là 2013 mà là 2007 nhé (k hiểu sao k sửa được nội dung ở trên)

 

[nguyenkhoadng]

Nếu office dưới 2013 thì thiên hạ đồn bào dùng cái này:

Sub test1()
    With Application
        With .CommandBars("Shapes")
            .Reset
            With .Controls.Add(Type:=msoControlPopup, before:=1)
                .Caption = "abc"
            End With
        End With
    End With
End Sub

Còn sau 2013 thì thiên hạ đồn là có nhiều thay đổi nên thay vì chuột phải mà chuột trái thì thử dùng cái này:

Sub test2()
Application.CommandBars("Shapes").ShowPopup
End Sub

Bài đã được tự động gộp: 14/4/19

nhầm, k phải là 2013 mà là 2007 nhé (k hiểu sao k sửa được nội dung ở trên)

khi click chuột phải vào shape vẫn ko hiện menu abc bạn ơi

 

[dovanhoc84]

khi click chuột phải vào shape vẫn ko hiện menu abc bạn ơi

thì t nói rồi mà, với bọn off từ 2007 đổ lại thì sẽ hiện, còn sau 2007 thì gọi bằng test2 sau khi chạy xong test1