File: easter_egg.pl

package info (click to toggle)
spreadsheet-writeexcel 0.36-1
  • links: PTS
  • area: main
  • in suites: woody
  • size: 1,344 kB
  • ctags: 400
  • sloc: perl: 5,749; makefile: 52
file content (29 lines) | stat: -rw-r--r-- 869 bytes parent folder | download | duplicates (3)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
#!/usr/bin/perl -w

###############################################################################
#
# This uses the Win32::OLE module to expose the Flight Simulator easter egg
# in Excel 97 SR2. A must see.
#
# reverse(''), March 2001, John McNamara, jmcnamara@cpan.org
#

use strict;
use Win32::OLE;

my $application = Win32::OLE->new("Excel.Application");
my $workbook    = $application->Workbooks->Add;
my $worksheet   = $workbook->Worksheets(1);

$application->{Visible} = 1;

$worksheet->Range("L97:X97")->Select;
$worksheet->Range("M97")->Activate;

my $message =  "Hold down Shift and Ctrl and click the ".
               "Chart Wizard icon on the toolbar.\n\n".
               "Use the mouse motion and buttons to control ".
               "movement. Try to find the monolith. ".
               "Close this dialog first.";

$application->InputBox($message);