Unlock a world of possibilities! Login now and discover the exclusive benefits awaiting you.
Hi, everybody. How to bold the expression label using macro?
From the API:
set chart = ActiveDocument.ActiveSheet.CreateStraightTable
chart.AddDimension "Customer"
chart.AddDimension "ProductType"
chart.AddExpression "sum(Amount)"
set cp = chart.GetProperties
set expr = cp.Expressions.Item(0).Item(0).Data.ExpressionVisual
expr.Label.v = "Sales"
expr.LabelAdjust = 2
expr.VisualCues.LowLimit.v = 10
expr.VisualCues.LowCue.Color.Col = RGB(255,0,0) 'red
expr.VisualCues.LowCue.FontStyleMod = 2 'bold
expr.VisualCues.LowCue.SizeMod = 1 '+20%
chart.SetProperties cp
From the API:
set chart = ActiveDocument.ActiveSheet.CreateStraightTable
chart.AddDimension "Customer"
chart.AddDimension "ProductType"
chart.AddExpression "sum(Amount)"
set cp = chart.GetProperties
set expr = cp.Expressions.Item(0).Item(0).Data.ExpressionVisual
expr.Label.v = "Sales"
expr.LabelAdjust = 2
expr.VisualCues.LowLimit.v = 10
expr.VisualCues.LowCue.Color.Col = RGB(255,0,0) 'red
expr.VisualCues.LowCue.FontStyleMod = 2 'bold
expr.VisualCues.LowCue.SizeMod = 1 '+20%
chart.SetProperties cp
Yes, that's exactly what I need. Thanks a lot.
But, what API did you read that in?. I saw no answer there.
The API Guide I was referring to is a QV app. I have pasted it for your review.
Thanks again. It's really useful app.