时间戳

首页 > 解决方案 > 设置单元格大小等于图片大小

excel - 设置单元格大小等于图片大小

问题描述

我正在尝试将图片导入到 excel 单元格中，但我正面临重新调整大小的问题。

脚步：

  1. 将图片复制/粘贴到单元格
  2. 手动调整图片大小
  3. 并调整单元格的大小以固定在图片上。

有没有其他方法可以代替手动操作？

标签： excelvbaresize

解决方案

我不确定您手动调整图片大小的确切含义，但这可能对您有用吗？

Sub ResizeCells()

Dim X As Double, Y As Double, Z As Double
Dim s As Shape

For Each s In ActiveSheet.Shapes
    If s.Type = msoPicture Then
        For X = s.TopLeftCell.Column To s.BottomRightCell.Column
            Y = Y + ActiveSheet.Cells(1, X).ColumnWidth
        Next X
        For X = s.TopLeftCell.Row To s.BottomRightCell.Row
            Z = Z + ActiveSheet.Cells(1, X).RowHeight
        Next X
        s.TopLeftCell.ColumnWidth = Y
        s.TopLeftCell.RowHeight = Z
    End If
Next s

End Sub

笔记：

  • 最大行高是409
  • 最大列宽是255

推荐阅读