xin hướng dẫn code chọn hình ảnh trong file (2 người xem)

[chickenexcel]

Em chào các bác!
Em xin nhờ các bác chỉ giúp, hiện e đang muốn chọn tất cả các ảnh trong cột B để chỉnh kích thước đồng bộ
Hiện e chỉ biết chọn toàn bộ ảnh trong file bằng cách chọn Objects, nhưng sẽ bị chọn cả 2 shapes "Edit" và "xóa bảng"
Shapes Edit sẽ chỉnh kích thước ảnh, còn Shapes "xóa bảng" sẽ xóa ảnh tại cột B đó ạ
Em xin cảm ơn!

 

[thuytrangbp28]

Nếu tất cả ảnh đều có tên bắt đầu bằng chữ Picture như file bạn gửi thì bạn tham khảo code bên dưới

Sub ChonTatCaPicture()
    Dim shp As Shape
    Dim ws As Worksheet
    Dim arr() As String
    Dim count As Integer

    Set ws = ActiveSheet
    count = 0

    For Each shp In ws.Shapes
        If LCase(Left(shp.Name, 7)) = "picture" Then
            ReDim Preserve arr(count)
            arr(count) = shp.Name
            count = count + 1
        End If
    Next shp

    If count > 0 Then
        ws.Shapes.Range(arr).Select
    Else
        MsgBox "Không tìm thay anh có tên bat dau là 'Picture'."
    End If
End Sub

 

[chickenexcel]

Nếu tất cả ảnh đều có tên bắt đầu bằng chữ Picture như file bạn gửi thì bạn tham khảo code bên dưới

Sub ChonTatCaPicture()
    Dim shp As Shape
    Dim ws As Worksheet
    Dim arr() As String
    Dim count As Integer

    Set ws = ActiveSheet
    count = 0

    For Each shp In ws.Shapes
        If LCase(Left(shp.Name, 7)) = "picture" Then
            ReDim Preserve arr(count)
            arr(count) = shp.Name
            count = count + 1
        End If
    Next shp

    If count > 0 Then
        ws.Shapes.Range(arr).Select
    Else
        MsgBox "Không tìm thay anh có tên bat dau là 'Picture'."
    End If
End Sub

Dạ em cảm ơn chị ạ!