Cách xác định Shape trong VBA

[LEHOC]

Em chào các anh/chị!
Em có vấn đề với Shape, nhờ anh chị chỉ giáo ạ.
A/C cho em hỏi làm sao để xác định được cái tên khi gọi Shape ạ.
Em dùng tham khảo được cách này nhưng không biết cách xác định chính xác Shape trong file nếu tồn tại nhiều Shape.
Cách đã tham khảo được: ActiveSheet.Shapes("Isosceles Triangle 1")
Em cảm ơn!

 

[Huyyeu99999]

Bạn vào tìm kiếm gõ " "ActiveSheet.Shapes

 

[ongke0711]

....

Huyyeu99999 là phiên bản 2 của thuyyeu99 à?

 

[Huyyeu99999]

Huyyeu99999 là phiên bản 2 của thuyyeu99 à?

Em hơi phong thủy xíu 99 là số đẹp số 9 đầu là sinh Số 9 sau là lão, giờ làm 99999 luôn hihihi

 

[thuanfun]

Em chào các anh/chị!
Em có vấn đề với Shape, nhờ anh chị chỉ giáo ạ.
A/C cho em hỏi làm sao để xác định được cái tên khi gọi Shape ạ.
Em dùng tham khảo được cách này nhưng không biết cách xác định chính xác Shape trong file nếu tồn tại nhiều Shape.
Cách đã tham khảo được: ActiveSheet.Shapes("Isosceles Triangle 1")
Em cảm ơn!

Để xem tên toàn bộ các Shape đang có trên sheet thì bạn FOR từng Shape để xem tên của nó:

Dim sh As shape
For Each sh In ActiveSheet.Shapes
   MsgBox sh.Name
Next

Hoặc:

Dim i As Integer
For i = 1 To ActiveSheet.Shapes.Count
    MsgBox ActiveSheet.Shapes(i).Name
Next

 

[LEHOC]

Để xem tên toàn bộ các Shape đang có trên sheet thì bạn FOR từng Shape để xem tên của nó:

Dim sh As shape
For Each sh In ActiveSheet.Shapes
   MsgBox sh.Name
Next

Hoặc:

Dim i As Integer
For i = 1 To ActiveSheet.Shapes.Count
    MsgBox ActiveSheet.Shapes(i).Name
Next

Để xem tên toàn bộ các Shape đang có trên sheet thì bạn FOR từng Shape để xem tên của nó:

Dim sh As shape
For Each sh In ActiveSheet.Shapes
   MsgBox sh.Name
Next

Hoặc:

Dim i As Integer
For i = 1 To ActiveSheet.Shapes.Count
    MsgBox ActiveSheet.Shapes(i).Name
Next

Vậy thì bất tiện bác nhỉ. Không có cách xem properties à bác?

 

[ndu96081631]

Vậy thì bất tiện bác nhỉ. Không có cách xem properties à bác?

Cuối cùng là bạn muốn điều gì?
1> Muốn lấy tên của đối tượng khi bạn bấm vào?
2> Muốn xác định đối tượng có tồn tại hay không thông qua cái tên?

 

[LEHOC]

Cuối cùng là bạn muốn điều gì?
1> Muốn lấy tên của đối tượng khi bạn bấm vào?
2> Muốn xác định đối tượng có tồn tại hay không thông qua cái tên?

Em muốn cách đơn giản nhất để lấy được CodeName của Shape.
Cảm ơn bác đã quan tâm và chỉ giáo ạ.

 

[ndu96081631]

Em muốn cách đơn giản nhất để lấy được CodeName của Shape.
Cảm ơn bác đã quan tâm và chỉ giáo ạ.

CodeName của Shape là cái gì?
Nói chung là vẫn chưa hiểu được ý bạn

 

[LEHOC]

CodeName của Shape là cái gì?
Nói chung là vẫn chưa hiểu được ý bạn

Em chưa sử dụng Shape nhiều nên chưa rõ thuộc tính của đối tượng.
Ý em là: để VBA gọi được tên của Shape và điều khiền Shape (ví dụ: gán text cho Shape) thì tên này được xác định bằng cách nào dễ nhất.
Ví dụ: đối với button trên form thì có thuộc tính (Name), nếu mình muốn điều khiển gì thì gọi (Name) này là được.

 

[ndu96081631]

Em chưa sử dụng Shape nhiều nên chưa rõ thuộc tính của đối tượng.
Ý em là: để VBA gọi được tên của Shape và điều khiền Shape (ví dụ: gán text cho Shape) thì tên này được xác định bằng cách nào dễ nhất.
Ví dụ: đối với button trên form thì có thuộc tính (Name), nếu mình muốn điều khiển gì thì gọi (Name) này là được.

Tôi thường làm thế này:

Dim shp As Shape, wks As Worksheet
Set wks = Worksheets("Sheet1")
Set shp = wks.Shapes("Rectangle 1")

Tức là khai báo và khởi tạo một đối tượng shp thông qua tên gọi như trên
Kể từ giờ tôi sẽ thao tác trên đối tượng shp, ngay khi bạn gõ dấu chấm sẽ có gợi ý
Ví dụ muốn gán text:

shp.TextFrame.Characters.Text = "Anh Tuan"

Đổi màu nền:

shp.Fill.ForeColor.RGB = vbBlue

Đại khái vậy

 

[LEHOC]

Để xem tên toàn bộ các Shape đang có trên sheet thì bạn FOR từng Shape để xem tên của nó:

Dim sh As shape
For Each sh In ActiveSheet.Shapes
   MsgBox sh.Name
Next

Hoặc:

Dim i As Integer
For i = 1 To ActiveSheet.Shapes.Count
    MsgBox ActiveSheet.Shapes(i).Name
Next

Bác ơi, em dùng vòng lặp for thì xác định được tên của Shapes là"Oval 13" tại i=8.
Em thao tác gán Shapes này vào biến thì bị lỗi "object doesn't support this property or method" (error 438)
Em đã code: sha = ActiveSheet.Shapes("Oval 13"), hoặc sha = ActiveSheet.Shapes(8)
Thanks bác đã quan tâm.

 

[ndu96081631]

Bác ơi, em dùng vòng lặp for thì xác định được tên của Shapes là"Oval 13" tại i=8.
Em thao tác gán Shapes này vào biến thì bị lỗi "object doesn't support this property or method" (error 438)
Em đã code: sha = ActiveSheet.Shapes("Oval 13"), hoặc sha = ActiveSheet.Shapes(8)
Cảm ơn bác đã quan tâm.

Phải Set sha =.... chứ

 

[LEHOC]

Phải Set sha =.... chứ

Em cảm ơn bác, em thao tác được rồi ạ.

 

[LEHOC]

Bác ơi, cho em hỏi sao em Gán text cho Shapes từ UserForm thì bị lỗi Type mismatch (Run-time error '13').

Phiền bác giúp em với.
Code của em ạ

Dim AcSh, Shp
        Set AcSh = ActiveSheet
        Set Shp = AcSh.Shapes("Oval 22").TextFrame.Characters.Text
        Shp = Left(Shp, Len(Shp) - 1) + cbActive.ListIndex.Text

Thanks

 

[ndu96081631]

Bác ơi, cho em hỏi sao em Gán text cho Shapes từ UserForm thì bị lỗi Type mismatch (Run-time error '13').
View attachment 231900
Phiền bác giúp em với.
Code của em ạ

Dim AcSh, Shp
        Set AcSh = ActiveSheet
        Set Shp = AcSh.Shapes("Oval 22").TextFrame.Characters.Text
        Shp = Left(Shp, Len(Shp) - 1) + cbActive.ListIndex.Text

Cảm ơn

Với câu hỏi này, tôi cảm thấy bạn đang bị mất căn bản nghiêm trọng, vậy sao có thể viết code được đây?

 

[LEHOC]

Với câu hỏi này, tôi cảm thấy bạn đang bị mất căn bản nghiêm trọng, vậy sao có thể viết code được đây?

Em chỉ tập tành code theo yêu cầu thực tế mà bác.
Mong bác thông cảm.
Còn với vấn đề của em, bác cho em biết cái sai được không ạ?
Em cảm ơn!

 

[HeSanbi]

Để Xem và đổi Name của các Shape có trong worksheet bạn thực hiện như sau:
Bạn vào "Page Layout" -> chọn "Selection Pane"
("Bố trí trang" -> "Ngăn lựa chọn")

Để xác định Shape có tồn tại hay không:

On Error Resume Next
Dim SP As Excel.Shape
Set SP = ThisWorkbook.Worksheets("SheetName").Shapes("ShapeName")
If VBA.Err.Number <> 0 Then MsgBox "Da ton tai"
On Error Goto 0

-------------------

-------------------

Dim AcSh As Excel.Worksheet, Shp As Excel.Shape, Text As String
        Set AcSh = ActiveSheet
        ''Text không phải Object nên không thể Set
       On Error Resume Next
        Set Shp = AcSh.Shapes("Oval 22")
       If VBA.Err.Number = 0 Or Not Shp Is Nothing Then
          Text = Shp.TextFrame2.TextRange.Characters.Text
          Shp.TextFrame2.TextRange.Characters.Text = VBA.Left(Text , Len(Text) - 1) + cbActive.ListIndex.Text
       End If