.HTMLBody = “<TABLE align=LEFT>” & body1 & Range_to_Html(WB2.Sheets(“Sum”).[A16:M72]) & “</TABLE>” 如何修改此代码可以使取得的截图A16:m72 的显示字体变成9号字
时间: 2024-09-19 22:16:19 浏览: 33
在给定的HTML字符串中,如果想要改变表格内A16至M72范围内的文字字体大小,你需要替换这部分内容的`<TD>`标签,因为HTML中的字体大小通常通过`<TD>`(表格数据单元格)或`<P>`(段落)元素的`style`属性来设置。假设你想要将所有文本字体设为9号,你可以这样做:
```html
<TD style="font-size: 9pt;">...</TD>
```
所以,将`Range_to_Html(WB2.Sheets("Sum").[A16:M72])`这部分替换成包含style属性的HTML:
```html
Range_to_Html(WB2.Sheets("Sum").[A16:M72], "font-size: 9pt;")
```
或者如果你的 `Range_to_Html` 函数支持直接设置样式作为参数,可以这样调用:
```html
.Range_to_Html(WB2.Sheets("Sum").[A16:M72], "<TD style='font-size: 9pt;'>")
```
这里假设 `Range_to_Html` 接受一个额外的参数用于设置单元格样式。
相关问题
.HTMLBody = "<TABLE align=LEFT>" & body1 & Range_to_Html(WB2.Sheets("Sum").[A16:M72]) & "</TABLE>" 如何修改此代码可以使取得的截图A16:m72 的显示字体比较小
在你给出的HTML字符串中,如果想要调整表格内指定区域(A16:M72)字体大小,可以在`Range_to_Html`函数内部添加CSS样式。假设你想让这部分内容的字体变为12像素,可以这样做:
```html
.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`函数原先是这样定义的:
```vba
Function Range_to_Html(rng As Range, Optional cssStyle As String = "") As String
...
End Function
```
那么你需要在该函数内部添加对`cssStyle`参数的支持,例如:
```vba
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>`标签到实际的单元格元素上,如果有的话。
If ThisWorkbook.Worksheets("check").Cells(2, 11).Value <> "Check ok" And ThisWorkbook.Worksheets("check").Cells(2, 12).Value <> "Check ok" And ThisWorkbook.Worksheets("check").Cells(2, 13).Value <> "Check ok" Then With OutMail '發送電子郵件給窗口 .To = rec1 '收件人 .Subject = company + " " + "FA Check 不平,請Check" + "-" + Mth '主旨 ' .Body = "Dear All, " & vbCrLf & " " & " " & " " & " " & "FA Check 不平,請Check!" & vbCrLf & " " & " " & " " & " " & "This is the email and report generated by RPA!" .HTMLBody = "Dear All, " & vbCrLf & "<TABLE align=LEFT>" & "FA Check 不平,請Check!" & vbCrLf & "<TABLE align=LEFT>" & "<TABLE align=LEFT>" & Range_to_Html(Sheets("check").[A1:M2]) & "</TABLE>" & vbCrLf & "<TABLE align=LEFT>" & "<TABLE align=LEFT>" & "This is the email and report generated by RPA!" ' & "</TABLE>" '邮件内容 ' .HTMLBody = "Dear All, " & vbCrLf & "<TABLE align=LEFT>" & "FA Check 不平,請Check!" & vbCrLf & "<TABLE align=LEFT>" & "<TABLE align=LEFT>" & Range_to_Html(Sheets("check").[G1].CurrentRegion) & "</TABLE>" & vbCrLf & " " & " " & " " & " " & "This is the email and report generated by RPA!" ' & "</TABLE>" '邮件内容 .display .Send End With End If
根据您提供的代码,条件判断部分没有问题。如果判断条件成立,将执行`With OutMail`和`.display`之后的代码块,发送邮件。
在您提供的代码中,您使用了`.HTMLBody`属性来设置邮件的HTML内容。您可以根据需要进行自定义,这里使用了`Range_to_Html`函数将"check"工作表中的指定区域转换为HTML表格,并将其添加到邮件的HTML内容中。
请注意,这里的`Range_to_Html`函数是您自定义的一个函数,我无法直接访问您的代码。如果您遇到任何问题,请确保`Range_to_Html`函数正确地将指定区域转换为HTML表格,并且确保您的邮件配置正确无误。
如果您仍然遇到问题,请提供更多上下文或相关代码,我将尽力帮助您解决。