Nhờ giúp viết code cho Macro xử lý auto shape trong Excel (1 người xem)

[hvn8006]

Chào các anh chị.
Em có file làm việc với auto shape trong Excel, nhờ anh chị xem và chỉnh sửa giúp em code để có thể thực hiện được nội dung công việc như sau:
Sau khi lựa chọn một hoặc một số hình vẽ bất kỳ mình dùng macro gán các thông số về màu sắc và độ rộng nét vẽ ạ.
Trân trọng.

 

[befaint]

Tôi không thấy đoạn code nào mà chỉnh sửa.
Thứ nữa, bạn muốn line của shape có màu sắc / bề rộng với giá trị như nào? Quy định color / line weight trước để gán cho đối tượng hay như nào?

 

[hvn8006]

Tôi không thấy đoạn code nào mà chỉnh sửa.
Thứ nữa, bạn muốn line của shape có màu sắc / bề rộng với giá trị như nào? Quy định color / line weight trước để gán cho đối tượng hay như nào?

Kính gửi anh bafaint.
Em up lại file có chứa Macro, do hôm trước sơ xuất chưa save dạng macro.
EM muốn các line của shape có màu đen và bề rộng 1,5.
Nhờ anh sửa giúp à.

 

[dhn46]

Bạn dùng cái này thử xem, và tùy biến nhé

Sub GPE()
    Dim Shp As Shape
    For Each Shp In ActiveSheet.Shapes
        Shp.Line.Weight = 1.5
        Shp.Line.ForeColor.ObjectThemeColor = msoThemeColorText1
    Next
End Sub

 

[befaint]

Kính gửi anh bafaint.
Em up lại file có chứa Macro, do hôm trước sơ xuất chưa save dạng macro.
EM muốn các line của shape có màu đen và bề rộng 1,5.
Nhờ anh sửa giúp à.

Bác chép đè đoạn sau vào Module1 trong file MACRO THEP.xlsm của bác.
Tôi thấy file của bác còn rất nhiều sheet nữa nên thêm cái phím tắt, bác có thể thay đổi theo ý muốn.
Lần sau, bác cứ mở file lên, chọn shape rồi nhấn phím tắt là được.

'Button assign in vba:
'^ = ctrl button
'+ = shift button
'% = alt button
'{p} = p button

Sub Auto_open()
Application.OnKey "^+{p}", "Format_shape"  'Press ctrl+shift+p to run Format_shape
End Sub

Sub Format_shape()
On Error Resume Next
    With Selection.ShapeRange.Line
        .Visible = msoTrue
        .ForeColor.ObjectThemeColor = msoThemeColorText1
        .Weight = 1.5
    End With
End Sub

p/s:
Bác vẽ các shape trên MS Excel 2007 trở lên thì các đối tượng có line weight mặc định = 3/4pt, color màu xanh đen nhạt. Vậy nên bác cần cái này hử?

 

[hvn8006]

Vâng cảm ơn anh.
Cái này em làm để phòng trường hợp mình không dùng line weiht mặc định của excel thì sửa Macro một chút rồi sử dụng cho nhanh ạ.