显示0而不是数据透视表中的空单元通过vba

我如何以编程方式执行以下操作:

在透视表中将空单元格更改为0。

在这里输入图像说明

数据透视表有一个NullString属性:

activesheet.pivottables(1).nullstring = "0" 

例如。