vba 加浮水印 ChartObjects AddTextbox應用

用法：

           Call AddWatermarkToChart("圖表 1" )

Sub AddWatermarkToChart(CHART_NAME)

    Dim ws As Worksheet

    Dim cht As chart

    Dim shp As Shape

    Dim watermarkText As String

    ' 設定浮水印文字

    watermarkText = "River's Footmar And Note"

    ' 選擇工作表

    Set ws = ThisWorkbook.Sheets(ActiveSheet.Name)

    ' 選擇圖表 (假設第一個圖表)

    Set cht = ws.ChartObjects(CHART_NAME).chart

          On Error Resume Next

    For Each oldWatermark In cht.Shapes

        If oldWatermark.Name = "River " Then

            oldWatermark.Delete

        End If

    Next oldWatermark

    On Error GoTo 0

    ' 添加浮水印

     Set shp = cht.Shapes.AddTextbox(msoTextOrientationHorizontal, _

        left:=cht.PlotArea.left + 100, top:=cht.PlotArea.top + 70, Width:=250, Height:=50) '控制大小跟位置

    shp.TextFrame.Characters.Text = watermarkText

    shp.TextFrame.Characters.Font.Size = 20 '字大小

    shp.TextFrame.Characters.Font.Bold = True '粗體

    shp.TextFrame.Characters.Font.Color = RGB(192, 192, 192) '顏色

    'shp.Fill.Transparency = 0.5

    'shp.Line.Visible = msoFalse

End Sub