Greetings,
Finally figured that CommandButtons don't take an image filename but need the
bitblt thingy
available from LoadPicture in stdole.tlb library.
Eg:
my $cellHeight = 12.75; #Standard cell
my $NewButton = $workSheet->OLEObjects->Add("Forms.CommandButton.1");
# Can set a bunch of properties like so (Not that one would want them all....):
$NewButton->Select;
$NewButton->{Left} = 0;
$NewButton->{Object}->{Shadow} = 1;
$NewButton->{Object}->{MousePointer} = 9;
$NewButton->{Top} = ($cellHeight * 4);
$NewButton->{Object}->{Caption} = "MyButton";
$NewButton->{Object}->{Name} = "MyButton";
# Here's the tough one...
$NewButton->{Object}->{Picture} = $image; # How to get bitBlt $image?
Have messed around with Win32::Gui::Bitmap* Win32::API and now am really hoping
someone might
have done this before, or at least help set me in the right direction..
TIA - Lynn.
_______________________________________________
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
