ButtonFont Property

Returns a ChFont object that represents the font of each button in the specified drop zone. Use the properties of the returned ChFont object to format the font of each button in the drop zone.

expression   Required. An expression that returns a ChDropZone object.

Example

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