sub SupressZeros

	set chart = ActiveDocument.GetSheetObject("CH09")
	set cp = chart.GetProperties

	set mytext = ActiveDocument.GetSheetObject("TX95")
	prop = mytext.GetProperties

	if cp.SuppressZero then
		cp.SuppressZero = false
		prop.Layout.Text.v = "Supress Zeros"
	else
		cp.SuppressZero = true
		prop.Layout.Text.v = "Show Zeros"
	end if

	chart.SetProperties cp
	mytext.SetProperties prop

end sub