我没有WPS,以下方法在Word和Excel里测试过OK。由于WPS和OFFICE通用,因此下面有一组代码是有效的。
无论Word还是Excel,同时按Alt和F11进入宏界面,点菜单的插入,模块,粘贴如下代码之一:
(Word的)
Sub DelHyp()
Dim xHyp As Hyperlink
Dim xPic As InlineShape
For Each xHyp In ThisDocument.Hyperlinks
xHyp.Delete
Next
For Each xPic In ThisDocument.InlineShapes
If xPic.Type = 3 Then
xPic.LockAspectRatio = msoTrue
xPic.Width = xPic.Width / 2
End If
Next
End Sub
(Excel的)
Sub DelHyp()
Dim xHyp As Hyperlink
Dim xPic As Shape
For Each xHyp In ActiveSheet.Hyperlinks
xHyp.Delete
Next
For Each xPic In ActiveSheet.Shapes
If xPic.Type = 13 Then
xPic.LockAspectRatio = msoTrue
xPic.Width = xPic.Width / 2
End If
Next
End Sub
2表示图片的宽度/高度都为原来的1/2,可以自己按需修改。然后在宏界面直接按F5运行该宏,完成。