Excel 在VBA中仅加粗一部分

我目前正在构建一个宏，该宏将从excel工作簿创建Powerpoint。我有两个单元格，当前合并到一个powerpoint文本框中。我希望能够在文本框中加粗一个单元格值。这可能吗

这是我当前的代码：

Proj = Sheets("Bay du Nord").Range("A23")
Proj2 = Sheets("Bay du Nord").Range("B23")


Set LCProj = Slide2.Shapes.AddTextbox(msoTextOrientationHorizontal, Left:=210, Top:=265, Width:=110, Height:=100)
With LCProj
    .Name = "LC Proj"
    With .TextFrame.TextRange
        .Text = Proj & vbNewLine & Proj2 & vbNewLine & "kg CO2/BOE"
        .Font.Size = 12
        .Font.Bold = False
        .ParagraphFormat.Alignment = ppAlignCenter
    End With
    With .Fill
        .TwoColorGradient msoGradientHorizontal, 2
        .ForeColor.RGB = RGB(140, 0, 0)
        .BackColor.RGB = RGB(180, 5, 0)
    End With
    .Shadow.Type = msoShadow14
End With

假设我想加粗单元格A23（项目J）中的值，并保持B23（项目J2）中的值不变

谢谢

您可以使用更改原始

文本范围的子集的属性，如下所示：

Proj = Sheets("Bay du Nord").Range("A23")
Proj2 = Sheets("Bay du Nord").Range("B23")


Set LCProj = Slide2.Shapes.AddTextbox(msoTextOrientationHorizontal, Left:=210, Top:=265, Width:=110, Height:=100)
With LCProj
    .Name = "LC Proj"
    With .TextFrame.TextRange
        .Text = Proj & vbNewLine & Proj2 & vbNewLine & "kg CO2/BOE"
        .Font.Size = 12
        .Font.Bold = False
        .ParagraphFormat.Alignment = ppAlignCenter
            With .Characters(1, len(Proj))
                .Font.Bold = True
            End With
    End With
    With .Fill
        .TwoColorGradient msoGradientHorizontal, 2
        .ForeColor.RGB = RGB(140, 0, 0)
        .BackColor.RGB = RGB(180, 5, 0)
    End With
    .Shadow.Type = msoShadow14
End With

可能只会让您突出显示一个部分