Excel VBA 代码：自动调整表格大小并转换为图像

下面是一个 VBA 代码示例，用于自动调整指定表格的大小并将其转换为图像。该代码假定您已经选择了要调整大小的表格，并且要将其转换为图像。您可以将该代码添加到 Excel 的宏中，然后通过快捷键或其他方式运行它。

Sub TableToImage()

    '获取当前选定的表格
    Set tbl = Selection

    '如果没有选定任何表格，则退出
    If tbl Is Nothing Then
        Exit Sub
    End If

    '将表格复制到剪贴板
    tbl.Copy

    '创建一个新的工作表并将表格粘贴到其中
    Set ws = ThisWorkbook.Sheets.Add
    ws.Paste

    '调整表格的大小以适应内容
    ws.Cells.EntireColumn.AutoFit
    ws.Cells.EntireRow.AutoFit

    '将图像转换为表格
    ws.CopyPicture xlScreen, xlBitmap

    '将表格图像粘贴到新的工作表中
    Set new_ws = ThisWorkbook.Sheets.Add
    new_ws.Paste

    '调整表格图像的大小以适应内容
    new_ws.Shapes(1).ScaleWidth tbl.Width / new_ws.Shapes(1).Width, msoFalse, msoScaleFromTopLeft
    new_ws.Shapes(1).ScaleHeight tbl.Height / new_ws.Shapes(1).Height, msoFalse, msoScaleFromTopLeft

    '删除中间工作表
    ws.Delete

End Sub

该代码的作用是将选定的表格复制到新的工作表中，并自动调整表格大小以适应内容。然后将表格转换为图像，并将其粘贴到新的工作表中。最后，调整图像的大小以适应原始表格的大小。如果您要使用此代码，请确保在运行代码之前已经选择了要调整大小的表格。