![]() | DIAdem 2017 Help |
![]() | DIAdem 2018 Help |
![]() | DIAdem 2019 Help |
![]() | DIAdem 2020 Help |
![]() | DIAdem 2020 SP1 Help |
The Circle object provides a circle in DIAdem REPORT.
The following example adds a circle to the current worksheet, changes the display of the circle, and then exports the circle into the graphics file MyCircle.png:
Dim oMyCircle, oMyBackgroundColor, oMyBorderLineColor Call Report.NewLayout() Set oMyCircle = Report.ActiveSheet.Objects.Add(eReportObjectCircle,"MyCircle") oMyCircle.ForceCircle = True Set oMyBackgroundColor = oMyCircle.BackgroundColor Call oMyBackgroundColor.SetPredefinedColor(eColorIndexRed ) oMyBackgroundColor.Transparency = 50 oMyCircle.Position.ByCoordinate.X1 = 10 oMyCircle.Position.ByCoordinate.X2 = 40 oMyCircle.Position.ByCoordinate.Y1 = 50 oMyCircle.Position.ByCoordinate.Y2 = 80 Set oMyBorderLineColor = oMyCircle.BorderLine.Color Call oMyBorderLineColor.SetPredefinedColor(eColorIndexGreen) oMyCircle.BorderLine.LineType = eLineTypeDotted oMyCircle.BorderLine.Width = eLineWidth0140 Report.Settings.ImageExport.PNG.BitsPerPixel = ePNGBitsPerPixelRGB24 Report.Settings.ImageExport.PNG.Height = 300 Report.Settings.ImageExport.PNG.UseRatio = True Call oMyCircle.ExportToImage(LayoutWritePath & "MyCircle", eImageExportTypePNG)
BackgroundColor | BorderLine | ForceCircle | Index | IsSelected | Name | ObjectType | Position | TagStored | TagTemporary
ReportObjects.Add | ReportObjects.Copy | ReportObjects.Item | SelectedObjects.Item | ToolTipCircleContext.Circle
Helpful
Not Helpful