Code chỉ chọn Pictures

[le tin]

Chào các bạn
Nhờ các bạn giúp cho đoạn code chọn tất cả các Picture trong 1 sheet .
Cảm ơn trước

 

[Hai Lúa Miền Tây]

Chào các bạn
Nhờ các bạn giúp cho đoạn code chọn tất cả các Picture trong 1 sheet .
Cảm ơn trước

Chọn tất cả picture còn các object khác có chọn không bạn ?

Nếu chỉ Picture thì dùng code sau:

Sub ChonHinh()
On Error Resume Next
  ActiveSheet.Pictures.Select
  
End Sub

 

[le tin]

Chọn tất cả picture còn các object khác có chọn không bạn ?

Nếu chỉ Picture thì dùng code sau:

Sub ChonHinh()
On Error Resume Next
ActiveSheet.Pictures.Select
 
End Sub

Cảm ơn bạn domfootwear , nhưng code này thử vẫn chưa được .

 

[Hai Lúa Miền Tây]

Cảm ơn bạn domfootwear , nhưng code này thử vẫn chưa được .

Mình thử được mà bạn, bạn chắc rằng là chọn hình hay là Object khác vậy?

 

[le tin]

Mình thử được mà bạn, bạn chắc rằng là chọn hình hay là Object khác vậy?

Xin lỗi nghen , đó chính là Object nhưng không phải tất cả như file minh họa, bạn xem lại và chỉnh giúp

 

[PhanTuHuong]

Code trên chỉ nhận đối tượng là picture vẽ, còn đối tượng Shape thì không nhận. Code dưới đây sẽ duyệt qua toàn bộ đối tượng object trên nền bảng tính:

Sub Test()
Dim Obj As Object
For Each Obj In Sheets(1).Shapes
Obj.Select
MsgBox Obj.Name
Next
Set Obj = Nothing
End Sub

Từ name bạn dùng thủ thuật tách chuỗi có thể lọc tên đối tượng cần chọn.

 

[Hai Lúa Miền Tây]

Code trên chỉ nhận đối tượng là picture vẽ, còn đối tượng Shape thì không nhận. Code dưới đây sẽ duyệt qua toàn bộ đối tượng object trên nền bảng tính:


Từ name bạn dùng thủ thuật tách chuỗi có thể lọc tên đối tượng cần chọn.

Lỡ làm đến đó rồi thì làm luôn anh à
Tác giả muốn chọn Freeform thôi thì code trên thêm dòng sau vào:

Sub Test()
Dim Obj As Object
  For Each Obj In Sheets(1).Shapes
[B][COLOR=Green]     If InStr(Obj.Name, "Freeform") Then[/COLOR][/B]
      MsgBox Obj.Name
[COLOR=Green][B]     End If[/B][/COLOR]
  Next
Set Obj = Nothing
End Sub

Cũng có thể dùng vòng lặp duyệt qua Freeform thôi còn những cái khác không cần phải duyệt.