Đặt tên Shapes theo giá trị trong cell tương ứng

[hsm.ksxd]

Các bác cho em hỏi trong VBA có cách nào đặt tên cho shape thành giá trị tương ứng trong Cột A không ạ?
Ví dụ như shape ở dòng 2 sẽ có tên là 1, shape ở dòng 3 sẽ có tên là 2, shape ở dòng 4 sẽ có tên là 3 ... Em có khoảng 42 cái Shape như vậy ạ

 

[be_09]

Các bác cho em hỏi trong VBA có cách nào đặt tên cho shape thành giá trị tương ứng trong Cột A không ạ?
Ví dụ như shape ở dòng 2 sẽ có tên là 1, shape ở dòng 3 sẽ có tên là 2, shape ở dòng 4 sẽ có tên là 3 ... Em có khoảng 42 cái Shape như vậy ạ

Góp ý cho bạn:
1/ Cần làm cái gì thì nên nêu rõ vấn đề.
2/ Mấy cái mẫu thanh sắt đó nên là hình ảnh để trong 1 Folder nào đó cần cái nào thì dùng VBA tra ra, nếu sử dụng Shapes với nhiều hàm quá thì File sẽ ì ạch.
3/ Bạn có thể tham khảo một số bài viết ở Link sau:
https://www.giaiphapexcel.com/diendan/search/221571/?q=Dùng+VBA+để+tra+hình+ảnh&c[title_only]=1&o=date
https://www.giaiphapexcel.com/diendan/search/221563/?q=Vlookup+hình+ảnh&c[title_only]=1&o=date

 

[ndu96081631]

Các bác cho em hỏi trong VBA có cách nào đặt tên cho shape thành giá trị tương ứng trong Cột A không ạ?
Ví dụ như shape ở dòng 2 sẽ có tên là 1, shape ở dòng 3 sẽ có tên là 2, shape ở dòng 4 sẽ có tên là 3 ... Em có khoảng 42 cái Shape như vậy ạ

Muốn đặt tên theo cell thì bạn phải xác định được cell chứa nó. Tôi có hàm này:

Function ShapeRange(ByVal shp As Shape) As Range
  On Error Resume Next
  Set ShapeRange = shp.Parent.Range(shp.TopLeftCell, shp.BottomRightCell)
End Function

Làm gì tiếp theo tùy ý bạn

 

[hsm.ksxd]

Muốn đặt tên theo cell thì bạn phải xác định được cell chứa nó. Tôi có hàm này:

Function ShapeRange(ByVal shp As Shape) As Range
  On Error Resume Next
  Set ShapeRange = shp.Parent.Range(shp.TopLeftCell, shp.BottomRightCell)
End Function

Làm gì tiếp theo tùy ý bạn

Cảm ơn thầy. Đúng ý em cần rồi ạ