I'm pretty much in the same boat as the user who asked about Win32::OLE Excel Perl Documentation (http://www.perlmonks.org/?node_id=1032678). I see from monk guidance on that thread that I need to check out the VBA Object Browser in Excel and the MSDN Win32::OLE Object Browser. I understand that object.method(argument).property = value becomes object->method(argument)->{property} = value; in Perl. That didn't get me too far into translating this block, though. If someone has the time and expertise to translate this to Perl, I'd greatly appreciate it as I'm in a bit of a time crunch and having one good example to go with the object browser will help with all the other automation of this Win32::OLE type that I'm embarking on for the first time. Thank you for considering my request.Sub Macro1() Range("A1:A3").Select Selection.FormatConditions.AddColorScale ColorScaleType:=3 Selection.FormatConditions(Selection.FormatConditions.Count).SetFi +rstPriority Selection.FormatConditions(1).ColorScaleCriteria(1).Type = xlCondi +tionValueLowestValue With Selection.FormatConditions(1).ColorScaleCriteria(1).FormatCol +or .Color = 8109667 .TintAndShade = 0 End With Selection.FormatConditions(1).ColorScaleCriteria(2).Type = xlCondi +tionValuePercentile Selection.FormatConditions(1).ColorScaleCriteria(2).Value = 50 With Selection.FormatConditions(1).ColorScaleCriteria(2).FormatCol +or .Color = 8711167 .TintAndShade = 0 End With Selection.FormatConditions(1).ColorScaleCriteria(3).Type = xlCondi +tionValueHighestValue With Selection.FormatConditions(1).ColorScaleCriteria(3).FormatCol +or .Color = 7039480 .TintAndShade = 0 End With End Sub
In reply to Need help converting Excel color scale conditional formatting macro to perl by WheelbarrowRacers
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |