ngduychien
VIP
Đôi khi bạn cần đổi tên một đối tượng hình dạng từ tên mặc định thành bất kỳ tên nào bạn muốn. Đặc biệt nếu bạn sẽ xử lý code VBA trong tương lai và muốn sử dụng nhiều tên mô tả hơn cho các hình dạng và đối tượng. Đoạn mã này sẽ giúp bạn đổi tên các đối tượng một cách dễ dàng bằng Macro.
Mã:
Sub RenameShape()
Dim objName
On Error GoTo CheckErrors
If ActiveWindow.Selection.ShapeRange.Count = 0 Then
MsgBox "Bạn cần phải chọn một hình để đổi tên"
Exit Sub
End If
objName = ActiveWindow.Selection.ShapeRange(1).Name
objName = InputBox$("Đổi tên cho Shape bằng tên mới", "Rename Shape", objName)
If objName <> "" Then
ActiveWindow.Selection.ShapeRange(1).Name = objName
End If
Exit Sub
CheckErrors:
MsgBox Err.Description
End Sub