Set mychart=Worksheets("Sheet 1").ChartObjects("图表 1")
mychart.Chart.ChartArea.Fill.PresetTextTured(msoFillTextured)
mychart.Chart.PlotArea.ClearFormats
mychart.Chart.PlotArea.Interior.ColorIndex=0
Set mychart=Worksheets("Sheet 1").ChartObjects("图表 1")
mychart.Chart.ChartArea.Fill.PresetTextTured(msoFillTextured)
mychart.Chart.PlotArea.ClearFormats
mychart.Chart.PlotArea.Interior.ColorIndex=0