WPS表格中无法运行自动插入图片

lsb1573

我写了个代码在表格中自动插入相片，但是在office2003中能正常运行，在WPS表格中却不能运行，查阅了好多资料都不知道问题出现在哪里，烦请各位大神指点指点！
代码如下：
Sub 插入图片()
Dim file, n%, m%, pah$
pah = ThisWorkbook.Path
Application.FileDialog(msoFileDialogFilePicker).Show
m = 0
For Each file In Application.FileDialog(msoFileDialogFilePicker).SelectedItems
If m Mod 2 Then
'MsgBox m Mod 2
ActiveCell(2 * n + 1, 3) = m
ActiveCell(2 * n + 2, 3) = file
ActiveSheet.Shapes.AddPicture file, 1, 1, ActiveCell(2 * n, 3).Left + 1, ActiveCell(2 * n, 3).Top + 1, ActiveCell(2 * n, 3).Width - 2, ActiveCell(2 * n, 3).Height - 2
m = m + 1
'n = n + 1
'm = 0
ElseIf m Mod 3 Then
ActiveCell(2 * n + 1, 4) = m
ActiveCell(2 * n + 2, 4) = file
ActiveSheet.Shapes.AddPicture file, 1, 1, ActiveCell(2 * n, 4).Left + 1, ActiveCell(2 * n, 4).Top + 1, ActiveCell(2 * n, 4).Width - 2, ActiveCell(2 * n, 4).Height - 2
n = n + 2
m = 0
Else
ActiveCell(2 * n + 1, 2).RowHeight = 14.25
ActiveCell(2 * n + 2, 2).RowHeight = 14.25
ActiveCell(2 * n, 2).RowHeight = 203.92
ActiveCell(2 * n + 1, 2) = m
ActiveCell(2 * n + 2, 2) = file
ActiveSheet.Shapes.AddPicture file, 1, 1, ActiveCell(2 * n, 2).Left + 1, ActiveCell(2 * n, 2).Top + 1, ActiveCell(2 * n, 2).Width - 2, ActiveCell(2 * n, 2).Height - 2
m = m + 1
End If
Next
End Sub

lsb1573

顶上去，路过的大侠帮忙瞧下