用excel vba从img中剔除"alt“

Sub RemoveAltFromImage()
    Dim ws As Worksheet
    Dim shp As Shape
    
    ' 设置要操作的工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1") ' 将"Sheet1"替换为实际的工作表名称
    
    ' 遍历工作表上的所有形状
    For Each shp In ws.Shapes
        ' 仅处理图片形状
        If shp.Type = msoPicture Then
            ' 移除"alt"属性
            shp.AlternativeText = ""
        End If
    Next shp
End Sub