-----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1 Hi Rick,
> I am trying to obtain all the spreadsheet cells which the user can see on the > screen. try: REM ***** BASIC ***** OPTION EXPLICIT Sub Main Dim oDocument as Object Dim oController as Object Dim oRange as Object Dim oRangeAddress as New com.sun.star.table.CellRangeAddress oDocument = ThisComponent If hasUnoInterfaces(oDocument, "com.sun.star.sheet.XSpreadsheetDocument") Then oController = oDocument.getCurrentController() oRangeAddress = oController.getVisibleRange() oRange = oController.getActiveSheet().getCellRangeByPosition(oRangeAddress.StartColumn,_ oRangeAddress.StartRow,_ oRangeAddress.EndColumn,_ oRangeAddress.EndRow) oController.select(oRange) EndIf End Sub regards Oliver - -- GnuPG key 0xCFD04A45: 8822 057F 4956 46D3 352C 1A06 4E2C AB40 CFD0 4A45 -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.4.2.2 (MingW32) Comment: Using GnuPG with Mozilla - http://enigmail.mozdev.org iD8DBQFELn0bTiyrQM/QSkURAmTHAJ9TihM8lMcDwpHybCF5gD48RLTvlACbBwuC fv4P0tgJcGsZdREvlxISU8E= =+Y0l -----END PGP SIGNATURE----- --------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]