How to access and set the Foreign Image Transparency Cell?

[healthNut]

Tried this but the the transparency does not set:

Code Select Expand


Sub setTransparency(shpObj As Visio.Shape, intVal As Integer)
  Dim cellObj As Visio.Cell
  Set cellObj = shpObj.CellsU("Transparency")

  Debug.Print "cellObj.Name: " & cellObj.Name

  Debug.Print "Before cellObj.Formula: " & cellObj.Formula
  cellObj.Formula = intVal
  Debug.Print "After cellObj.Formula: " & cellObj.Formula

End Sub


Immediate window output:
cellObj.Name: Transparency
cellObj.Section: 1
Before cellObj.Formula: 0%
After cellObj.Formula: 0%

[healthNut]

Figured it out:
Transparency formula was looking for a string, not an integer