Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Multimedia (https://www.delphipraxis.net/16-multimedia/)
-   -   Excel OLE Button.OnAction festlegen (https://www.delphipraxis.net/186223-excel-ole-button-onaction-festlegen.html)

luisk 15. Aug 2015 10:30

Excel OLE Button.OnAction festlegen
 
Hallo,
ich generiere ein Excel-Arbeitsmappe über Delphi per OLE
In die 1. Tabelle füge ich einen Butten ein.
Nun soll dieser Butten noch die Eigenschaft onAction erhalten,
und dadurch beim Anklicken auf die 2. Tabelle springen.

Dabei kommt dann die Fehlermeldung: " Die OnAction Eigenschaft des Buttons kann nicht festgelegt werden. "
Hat evtl. schon mal jemand sowas gemacht ?
Delphi-Quellcode:
          WorkSheet:=new_WorkSheet();
          WorkSheet.Name:='Tab2';
          WorkSheet.Cells[1,1] := 'Tab2'
                                  + ' ' +  ADS_KlasseName.AsString;

           WorkSheet1:= WorkBook.Worksheets[1];
           WorkSheet1.Buttons.Add(144.75, 29.25, 139.5, 25.5);

           WorkSheet1.Buttons[1].Characters.Text := 'Tab2' ;
// bis hierher funktionierts

// hier kommt dann die Fehlermeldung: "Die OnAction Eigenschaft des Buttons kann nicht festgelegt werden."
           WorkSheet1.Buttons[1].OnAction := 'Sheets(2).Select';

ThoPos 17. Aug 2015 07:02

AW: Excel OLE Button.OnAction festlegen
 
Hallo,

leider mußte ich derartige Programmierungen mit der Einführung von Excel 2000 oder Excel 2003 beenden.

1. mit dem Befehl .OnAction kann man meines Wissens nur bestehende Makros zuweisen, aber keine einzelne Makrobefehle ausführen. Also "Button1.OnAction := 'Testmakro';" funktioniert in meinen Programmen, wenn es das Makro "Testmakro" im Geltungsbereich gibt.

2. Unter Excel 97 war es noch möglich, Makros in eine Arbeitsmappe hinein zu programmieren. Dies wurde aber dann in einer der späteren Versionen abgeschaft.


Gruß aus Köln


Alle Zeitangaben in WEZ +1. Es ist jetzt 00:46 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz