让单元格适应图片代码出错，求助。

sirsunny

按照罗刚君的代码调试，出现下图的错误，另外代码中的MaxWidth为啥也没有赋值？（我的系统是win10 64位，excel2010.）

1. Sub 让单元格适应图片()
   
2.    Dim i As Integer, ShWidth, NewWidth, ShHeight, MaxWidth
   
3.    Application.ScreenUpdating = False  '关闭屏幕更新
   
4.   With ActiveSheet  '引用工作表
   
5.     For i = 1 To .Shapes.Count  '遍历所有图形对象
   
6.       .Shapes(i).Left = .Shapes(i).TopLeftCell.Left  '统一左边距
   
7.       .Shapes(i).Top = .Shapes(i).TopLeftCell.Top  '统一上边距
   
8.       .Shapes(i).TopLeftCell.RowHeight = .Shapes(i).Height  '统一高度
   
9.       '调整宽度，不是统一，而要以宽度最大的图片为标准，从而使所有图片都容纳进单元格中
   
10.       ShWidth = .Shapes(i).Width  '记录图片的宽度
    
11.       '将图片的宽度换算成可用于列宽的宽度（因为两个单位完全不同）
    
12.       NewWidth = Round(Round(ShWidth / 0.75 - IIf(ShWidth > 9, 5, 0), 0) / IIf(ShWidth > 9, 8, 13), 2)    ' 字符，最适合的列宽
    
13.       If MaxWidth < ShWidth Then  '如果图片在宽度大于变量MaxWidth
    
14.          .Shapes(i).TopLeftCell.ColumnWidth = NewWidth  '以换算后的宽度为标准设置单元格的宽度
    
15.         MaxWidth = ShWidth  '将图片的宽度赋予变量MaxWidth
    
16.        End If
    
17.      Next i
    
18.    End With
    
19.    Application.ScreenUpdating = True
    
20. End Sub

复制代码

sirsunny

我搞明白是怎么回事了，单元格列高不能超过409，因此如果图片高度过大，就会出错。