expand a dimension column in a pivot table

[ali_hijazi]

Hello

I got a pivot table in which I added a dimension and hid it via a macro (on load of the sheet)

however when this dimension comes collapsed by default

is there a way to expand it by code (macro)

I was able to hide it as follows:

set var = ActiveDocument.Variables("dimShow")

varValue = var.GetContent.String

set obj = ActiveDocument.GetSheetObject("CH01")

set objProp = obj.GetProperties

set objDim = objProp.Dimensions

if varValue = 1 then

  objDim(1).ColWidth = 0

  var.SetContent 0,true

is there a property like .expanded = 1