KenSmith
General User
Joined: 04 Nov 2005
Posts: 23
Location: Sanfransisco bay area
|
 Posted: Fri Mar 31, 2006 11:41 am Post subject: Modifying charts for printing |
 |
|
I never seem to be able to get the "data series" line without a great deal of frantic clicking. Here is how I turn charts into black and white for printing.
| Code: |
Sub ModifyXYCharts
dim TheSheet
dim TheChart
dim TheDiagram
dim TheLineProp
dim SheetNo as integer
dim CharNo as integer
dim LineNo as integer
rem GlobalScope.BasicLibraries.LoadLibrary("XrayTool")
for SheetNo = 0 to ThisComponent.Sheets.Count - 1
TheSheet = ThisComponent.sheets.getbyIndex(SheetNo)
if TheSheet.Charts.Count > 0 then
for ChartNo = 0 to TheSheet.Charts.Count-1
TheChart = TheSheet.Charts.getbyindex(ChartNo)
TheEmbedded = TheChart.EmbeddedObject
rem TheEmbedded.Title.String = "New Title"
rem TheEmbedded.HasSubTitle = True
rem TheEmbedded.SubTitle.String ="New sub title"
TheDiagram = TheEmbedded.Diagram
TheDiagram.Wall.FillColor = rgb(255,255,255)
rem This is a mickey mouse what to get how many
for LineNo = 1 to uBound(TheEmbedded.TranslatedColumns)
TheLineProp = TheDiagram.GetDataRowProperties(LineNo)
TheLineProp.SetPropertyValue("LineColor",rgb(0,0,0))
next LineNo
next ChartNo
end if
next SheetNo
end sub
|
_________________
I'm new here |
|
