如何用vba选中wps表格中图片所在的单元格？

选中wps表格中特定的图片想要选所在行复制，直接用Selection.EntireRow.Select不得行

要怎么才能选中图片所在单元格或者直接选择图片所在行

Excel VBA：选中图片位置相关的单元格

一 图片所有区域

MS Excel

img

WPS 表格

img

二 代码

Sub 选中图片左上单元格整行()
    Sheets(1).Shapes(1).TopLeftCell.EntireRow.Select
End Sub

Sub 选中图片右下单元格整行()
    Sheets(1).Shapes(1).BottomRightCell.EntireRow.Select
End Sub

Sub 选中图片包含的单元格区域()
    Dim 左上地址 As String, 右下 As String
    左上 = Sheets(1).Shapes(1).TopLeftCell.Address
    右下 = Sheets(1).Shapes(1).BottomRightCell.Address
    Sheets(1).Range(左上 & ":" & 右下).Select
End Sub

三 效果
选择图片左上角所有的整行
MS Excel

img

WPS 表格

img

选择图片右下角所在的整行
MS Excel

img

WPS 表格

img

选择图片包含的所有单元格
MS Excel

img

WPS 表格

img

如果有任何【Office办公软件/VBA办公自动化/文件批处理】方面的问题，欢迎大家提问，可以共同探讨解决方法！