修改单元格的高度宽度，只需要使用ColumnWidth和RowHeight参数就足够了，前者指的是列宽，后者指的是行高，代码如下。
Columns("A").ColumnWidth = 13
Rows(3).RowHeight = 23
知识拓展：
Dim Pic As Picture, i&
i = [A65536].End(xlUp).Row
For Each Pic In Sheet1.Pictures
If Not Application.Intersect(Pic.TopLeftCell, Range("B1:B" & i)) Is Nothing Then
Pic.Top = Pic.TopLeftCell.Top
Pic.Left = Pic.TopLeftCell.Left
Pic.Height = Pic.TopLeftCell.Height
Pic.Width = Pic.TopLeftCell.Width
End If
Next
上述代码的功能是：让图片的高度和宽度为图片所在单元格的高度、宽度。