Returns a ChFont object that represents the font of the watermark in the specified drop zone. Use the properties of the returned ChFont object to format the font of the drop zone's watermark.
expression.WatermarkFont
expression Required. An expression that returns a ChDropZone object.
This example formats the button and the watermark of the series drop zone in Chartspace1.
Sub SetupDropZone()
Dim dzSeriesDropZone
Dim ChConstants
Set chConstants = Chartspace1.Constants
' Set a variable to the series drop zone in Chartspace1.
Set dzSeriesDropZone = ChartSpace1.DropZones(chConstants.chDropZoneSeries)
' The next three lines of code format the button of the drop zone.
dzSeriesDropZone.ButtonBorder.Weight = chConstants.owcLineWeightMedium
dzSeriesDropZone.ButtonInterior.SetSolid "Red"
dzSeriesDropZone.ButtonFont.Size = 14
' The next three lines of code format the watermark of the drop zone.
dzSeriesDropZone.WatermarkBorder.Color = "Red"
dzSeriesDropZone.WatermarkFont.Color = "Red"
dzSeriesDropZone.WatermarkInterior.SetSolid "Green"
End Sub