VBA导出图片，大部分是空白的

mingqi888

VBA导出图片，大部分是空白的，如图，只能手动按F8一步步才才能全部导出，请各位帮忙看看有没有什么办法。
Sub test1() '''''''''''''导出图片
Dim shap As Shape
Dim b
With ActiveSheet
   For Each shap In .Shapes
     '''''''''''''''''''''''''''''''''nam = shap.name
     If shap.Type = 13 Then
     b = b + 1
       shap.Copy
         With .ChartObjects.Add(0, 0, shap.Width, shap.Height).Chart
            .Paste
            .Export "C:\Users\Administrator\Desktop\新建文件夹\" & b & ".jpg"
            .Parent.Delete
         End With
     End If
   Next
  End With
End Sub

dqhtju

代码看着没有问题
重新启动excel试试
或在paste之后加一个延时

mingqi888

dqhtju 发表于 2017-8-30 14:57
代码看着没有问题
重新启动excel试试
或在paste之后加一个延时

谢谢，我下班试了用自己家的电脑就不会出现这种情况，会不会与电脑也有关系呢

huang1314wei

目测楼主使用的可能是2016的excel，所以导出来的是空白

Will333

huang1314wei 发表于 2017-8-30 19:31
目测楼主使用的可能是2016的excel，所以导出来的是空白

为什么2016版的会这样，什么原因呢？

everbest2015

在.paset上面加一句   .parent.select

任浪漫

everbest2015 发表于 2019-8-1 16:25
在.paset上面加一句   .parent.select

谢谢大神指点，刚从2010切换为2016 是需要加上此行代码才不会导出空白图

糖唐糖唐唐小屁

我现在也遇到了这样的问题，可愁死了，我用了这楼大神指点的方法，导出来还是空白的，得按F8逐步运行才可以，愁死了

493861364

everbest2015 发表于 2019-8-1 16:25
在.paset上面加一句   .parent.select

测试可行                        

zhusong1998

同样发愁这个问题，昨天还没有问题，今天上班就不行了。