.HTMLBody = "<TABLE align=LEFT>" & body1 & Range_to_Html(WB2.Sheets("Sum").[A16:M72]) & "</TABLE>" 如何修改此代码可以使取得的截图A16:m72 的显示字体比较小

在你给出的HTML字符串中，如果想要调整表格内指定区域(A16:M72)字体大小，可以在`Range_to_Html`函数内部添加CSS样式。假设你想让这部分内容的字体变为12像素，可以这样做：

.HTMLBody = "<TABLE align=LEFT style='font-size: 12px'>" & body1 & Range_to_Html(WB2.Sheets("Sum").[A16:M72], "font-size: 12px") & "</TABLE>"

这里，`Range_to_Html`函数需要更新成接受第二个参数，用于设置范围内的自定义CSS样式。你可以传入一个包含特定样式的字符串，如上述例子所示。

如果你的`Range_to_Html`函数原先是这样定义的：

Function Range_to_Html(rng As Range, Optional cssStyle As String = "") As String
...
End Function

那么你需要在该函数内部添加对`cssStyle`参数的支持，例如：

Function Range_to_Html(rng As Range, Optional cssStyle As String = "") As String
    ' 在生成HTML字符串前，应用额外的CSS样式
    Dim html As String
    If Not cssStyle = "" Then
        html = "<td" & (cssStyle <> "" And " style='" & cssStyle & "'") & ">" & rng.Value & "</td>"
    Else
        html = "<td>" & rng.Value & "</td>"
    End If
    ' ... 其他HTML片段生成...
End Function

现在，当你调用`Range_to_Html(WB2.Sheets("Sum").[A16:M72], "font-size: 12px")`时，字体就会变成12像素。记得替换`<td>`标签到实际的单元格元素上，如果有的话。