Không ghi được Macro Vẽ shape trong VBA (2 người xem)

[hsm.ksxd]

Các bác cho em hỏi là em dùng excel 2007 nhưng khi ghi Macro quá trình vẽ shape thì trong Macro chẳng có dòng lệnh code nào cả. Như vậy là bị làm sao ạ

 

[befaint]

Các bác cho em hỏi là em dùng excel 2007 nhưng khi ghi Macro quá trình vẽ shape thì trong Macro chẳng có dòng lệnh code nào cả. Như vậy là bị làm sao ạ

Đã bảo Excel 2007 bị trục trặc... hoặc do bạn thao tác... Chịu!
Bạn thử đoạn sau xem.

Sub Macro1()
'
' Macro1 Macro
'
'
    ActiveSheet.Shapes.AddShape(msoShapeRectangle, 144.6, 15, 136.8, 71.4).Select
End Sub

 

[PhanTuHuong]

Một số object không hỗ trợ đâu, bạn nên dùng Excel 2016 vì được hỗ trợ nhiều hơn. Một số tính năng được update, thông báo lỗi macro đỡ ngu ngơ hơn bản cũ

 

[hsm.ksxd]

Đã bảo Excel 2007 bị trục trặc... hoặc do bạn thao tác... Chịu!
Bạn thử đoạn sau xem.

Sub Macro1()
'
' Macro1 Macro
'
'
    ActiveSheet.Shapes.AddShape(msoShapeRectangle, 144.6, 15, 136.8, 71.4).Select
End Sub

Một số object không hỗ trợ đâu, bạn nên dùng Excel 2016 vì được hỗ trợ nhiều hơn. Một số tính năng được update, thông báo lỗi macro đỡ ngu ngơ hơn bản cũ

Cảm ơn 2 bác nhiều ạ

 

[hsm.ksxd]

Đã bảo Excel 2007 bị trục trặc... hoặc do bạn thao tác... Chịu!
Bạn thử đoạn sau xem.

Sub Macro1()
'
' Macro1 Macro
'
'
    ActiveSheet.Shapes.AddShape(msoShapeRectangle, 144.6, 15, 136.8, 71.4).Select
End Sub

Bác cho em hỏi thêm là em có vẽ 1 shape sẵn trong excel tên là Rectangle1 . em dùng vòng lặp For next với i chạy từ 1 đến 10. Với mỗi giá trị i thì gán 1 ảnh khác nhau lên shape đó (các ảnh này được lấy từ máy tính, và đường dẫn file ảnh nằm ở cell F2). Bác cho em xin dòng code vòng lặp for với các yêu cầu trên được không ạ