Mijn vraag
Ik krijg alleen slechte antwoorden.
Alsjeblieft, wat heb ik verkeerd gedaan?
cls
Arnold
Ik krijg alleen slechte antwoorden.
Alsjeblieft, wat heb ik verkeerd gedaan?
cls
Bedankt voor uw hulp!function RGB{
Param(
$red=0,
$green=0,
$blue=0
)
[long]$red+($green*256)+($blue*65536)
}
$xl=New-Object -ComObject Excel.Application
Add-Type -AssemblyName Microsoft.Office.Interop.Excel
# [Microsoft.Office.Interop.Excel.XLConditionValueTypes]
# should be:
$xltypes=[Microsoft.Office.Interop.Excel.Constants]
$xldoc=$xl.Workbooks.Add()
$sheet=$xldoc.Worksheets.Item(1)
$range=$sheet.Range('A1:E10')
$range.FormatConditions.AddColorScale(3)
$range.FormatConditions.Item(1).ColorScaleCriteria.Item(1).Type=$xltypes::xlConditionValuePercent
$range.FormatConditions.Item(1).ColorScaleCriteria.Item(1).Value=3
$range.FormatConditions.Item(1).ColorScaleCriteria.Item(1).FormatColor.Color=RGB -red 255
$range.FormatConditions.Item(1).ColorScaleCriteria.Item(1).FormatColor.TintAndShade=0.25
Arnold