IAnalogPen.LineColor [Property][Get/Set]

Gets or Sets the color that will be used to draw the pen line.

Defined As

• [VBA] Long LineColor
• [Cicode] INT LineColor
• [C++] OLE_COLOR LineColor

Execution Result

If the property get/set succeeds, the return value will be Success. If the return variable is bad, the return value will be InvalidArgument. If the pen is deleted, the return value will be GeneralFailure.

Remarks

The color value can be calculated using the following formula:

color = (65536 * blue) + (256 * green) + (red)

where red, green, and blue are 0-255.

Calling Syntax

This example assumes there is a valid AnalogPen object to be passed into the example methods.

[VBA]

Sub Example(analogPen As Object)

   Dim lineColor As Long

	 `Getting Property value

   lineColor = analogPen.LineColor

   `Setting Property to red

  analogPen.LineColor = 255

End Sub

[Cicode]

FUNCTION Example(OBJECT hAnalogPen)

		// Getting property value

 INT nLineColor = _ObjectGetProperty(hAnalogPen, "LineColor");

	 // Setting property to red

		_ObjectSetProperty(hAnalogPen, "LineColor", 255);

END