RE: how can i change the interior colors of pies?

Tech-Archive recommends: Repair Windows Errors & Optimize Windows Performance

From: Thao Moua [ms] (ThaoMouams_at_discussions.microsoft.com)
Date: 10/21/04

  • Next message: Thao Moua [ms]: "Re: Obtain the pivottable associated with a chartspace" 
    Date: Thu, 21 Oct 2004 11:45:01 -0700

    The Interior object contains all the properties you need to change the visual
    formattings such as color and background. The font is accessed through the
    Font object branching from the object you want to manipulate (ie Title.)

    Can you clarify your question "how can i set the corrosponding value to the
    pie?" Your code already set the pie value via SeriesCollection(0).SetData()

    ----------------------------------------------------------------------
    Thao Moua
    OWC Chartspace Support

    This posting is provided "AS IS" with no warranties, and
    confers no rights. Use of included script samples are
    subject to the terms specified at
    http://www.microsoft.com/info/cpyright.htm
    ----------------------------------------------------------------------
    "info@epple-edv.de" wrote:

    > Hello everybody,
    > i create a chart with the above code - works fine.
    > my problem:
    >
    > how can i change the interior colors of the 4 pies?
    > how can i change the bachgroundcolor of the chart?
    > how can i change the font, font-size, font-color?
    > how can i set the corrosponding value to the pie?
    >
    > thanks
    > rainer from germany
    >
    > Option Explicit
    >
    > Dim aryTimes
    > Dim aryValues
    > Dim objChart
    > Dim objCharts
    > Dim objConstants
    > Dim strFileName
    >
    > Set objCharts = Createobject("OWC11.Chartspace")
    > Set objConstants = objCharts.Constants
    >
    > aryTimes = Array("1997", "1999", "2000", "2003")
    > aryValues = Array(49000, -7800, -19000, 15000)
    >
    > With objCharts
    > .HasChartSpaceTitle = True
    > .ChartSpaceTitle.Caption = "creating charts using microsoft office
    > web components"
    > .ChartLayout = objConstants.chChartLayoutHorizontal
    > End With
    >
    > Call AddChart(objCharts, objConstants, aryValues, aryTimes,
    > objConstants.chChartTypePieExploded3D)
    > Response.ContentType = "image/GIF"
    > Response.BinaryWrite objCharts.GetPicture("GIF", 400, 400)
    >
    > Set objCharts = Nothing
    > Set objConstants = Nothing
    >
    >
    > Sub AddChart(objCharts, objConstants, aryData, aryDescription,
    > intChartType)
    > Dim objChart
    > Set objChart = objCharts.Charts.Add
    >
    > With objChart
    > .Type = intChartType
    > .SetData objConstants.chDimCategories,
    > objConstants.chDataLiteral, aryDescription
    > .SeriesCollection(0).SetData objConstants.chDimValues,
    > objConstants.chDataLiteral, aryData
    > End With
    >
    > Set objChart = Nothing
    > End Sub
    >
    >
    >

  • Next message: Thao Moua [ms]: "Re: Obtain the pivottable associated with a chartspace"

    Relevant Pages

    • Re: how can i change the interior colors of pies?
      ... > The problem with using the Interior object of the Datalabels Object is> that it changes the color for the entire pie. ... >>> Dim aryValues ... >>> Dim objChart ... >>> Set objConstants = objCharts.Constants ...
      (microsoft.public.office.developer.web.components)
    • Re: how can i change the interior colors of pies?
      ... The problem with using the Interior object of the Datalabels Object is ... that it changes the color for the entire pie. ... >> Dim aryValues ... >> Call AddChart(objCharts, objConstants, aryValues, aryTimes, ...
      (microsoft.public.office.developer.web.components)
    • Re: Segments
      ... I'm using the Pie API with a few COS as SIN functions thrown in. ... sample you posted - the segment is the right size but in the wrong place. ... Dim CPoint As POINTAPI ...
      (comp.lang.basic.visual.misc)
    • OWC Charts
      ... Dim aryValues ... Sub AddChart(objCharts, objConstants, aryData, _ ... Set objCharts = CreateObject ... Call AddChart(objCharts, objConstants, _ ...
      (microsoft.public.de.inetserver.iis.asp)
    • RE: Altering the data behind a chart in VBA
      ... I want to be able to alter the data behind a chart using code. ... Dim ObjChart As Word.InlineShape ... Dim oChart As Graph.Chart ...
      (microsoft.public.word.vba.general)