vba运行报错，调试正常运行

诡天翼1988

我想实现将公式转化为：增强型图片的功能，以下代码，在n=3个或者n=4时就报错了，错误代码4198，但是调试的时候又能正常运行，请教大神，这个问题是怎么解决？

Sub 宏2()
'
Dim n '图片个数

  For n = 1 To ActiveDocument.InlineShapes.count 'Shapes类型图片
  'On Error Resume Next
    ActiveDocument.InlineShapes(n).Select
    Selection.Copy
    'Application.Run MacroName:="MathTypeCommands.UIEnableDisable.UIUpdate"
    Selection.PasteSpecial Link:=False, DataType:=wdPasteEnhancedMetafile, _
        Placement:=wdInLine
   Next n
   
End Sub

batmanbbs

涉及到.Copy方法，大概率是剪贴板引起的问题，请在.copy后增加一个延时（先设置100ms）试试看

vbee

操作慢，VBA太快，中间需要停顿

1. Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr)
   
2. 
   
3. Sub 宏2()
   
4. '
   
5. Dim n '图片个数
   
6. 
   
7.   For n = 1 To ActiveDocument.InlineShapes.Count 'Shapes类型图片
   
8.   'On Error Resume Next
   
9.     ActiveDocument.InlineShapes(n).Select
   
10.     Selection.Copy
    
11.     'Application.Run MacroName:="MathTypeCommands.UIEnableDisable.UIUpdate"
    
12.     Sleep 3000
    
13.     Selection.PasteSpecial Link:=False, DataType:=wdPasteEnhancedMetafile, _
    
14.         Placement:=wdInLine
    
15.    Next n
    
16.    
    
17. End Sub
    

复制代码