我沒有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運行該宏,完成。