topic-39478

Marc Vanzegbroeck

Posts: 1195

Joined: Mon Oct 17, 2005 05:41 AM

Coordinates Excel-grid.
Posted: Thu Oct 15, 2020 11:27 AM

Hi,

I want to draw some shapes like this in excel (like a bar-graph).

I want the height of the shapes the same of the grid. How can I calculate the coordinates?

MaxP

Posts: 99

Joined: Thu Jul 12, 2007 02:02 PM

Re: Coordinates Excel-grid.
Posted: Mon Oct 19, 2020 03:27 PM

Hi Marc,

try this

Code (fw): Select all Collapse

#include "Fivewin.ch"

#define msoShapeRectangle       1

FUNCTION MAIN()
        LOCAL   oExcel, oWorkBooks, oSheet, oCell1, oCell2
       
        TRY
                oExcel := TOleAuto():New( "Excel.Application" )
        CATCH
                oExcel := NIL
        END
       
        IF oExcel <> NIL
                oWorkBooks := oExcel:WorkBooks

                IF oWorkBooks <> NIL
                        oWorkBooks:Add()
                        oSheet := oExcel:ActiveSheet                           
                        
                        oCell1 := oSheet:Cells( 4, 2 )
                        
                        oCell2 := oSheet:Cells( 4, 3 )
                        
                        oSheet:Shapes:AddShape( msoShapeRectangle, oCell1:Left, oCell1:Top, oCell1:Width + oCell2:Width, oCell1:Height )
                                               
                        oExcel:Visible := .T.
                ENDIF
        ENDIF
RETURN NIL

Best regards,
Massimo

Marc Vanzegbroeck

Posts: 1195

Joined: Mon Oct 17, 2005 05:41 AM

Re: Coordinates Excel-grid.
Posted: Mon Oct 19, 2020 04:22 PM

Thank you Massimo.

It's just what I needed.

FiveTech Support Forums

Continue the discussion