如何编辑我的宏导出图纸到pdf报告时忽略特定颜色(蓝色)的文本？

Question

我目前正在编写一些通过单击按钮执行的简单VBA代码。此按钮会将图纸导出为pdf格式。

代码：

ThisWorkbook.Sheets(Array(Sheet1.Name, Sheet2.Name, Sheet3.Name, Sheet4.Name)).Select

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:="C:\Some location", Quality:=xlQualityStandard, 
IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, OpenAfterPublish:=True
    ThisWorkbook.Sheets("Intro").Select

我想知道是否有可能添加一个if语句，它将遍历所有的工作表，并跳过发布任何用蓝色编写的内容(如果可能，任何变体，例如任何蓝色阴影)。我之所以要指定这个颜色，是为了确保注释可以用蓝色书写，而不是打印在这个宏生成的官方pdf报告中。

谢谢!

Answer 1

您可以像这样检查字体颜色：

Sub CheckingA1ForBlueFont()

If Range("A1").Font.Color = vbBlue Then
    MsgBox "Font color of A1 value is blue!"
End If

End Sub

但是，它只适用于这种特定的蓝色(vbBlue)。