ウィンドウ枠固定位置 (ID:9721)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 私自身Delphi環境がないので、 他人に検証していただいた結果です。 以下抜粋。 //////////////////////////////// テスト環境 Delphi7pro ＆ Excel2002 です。 Workbooks.Openの引数の数が提示されたコードと違かったので環境が違うかもしれません。 正しいやり方ではないかもしれませんが、SplitRowとSplitColumnの値は取れたよ。 SplitRowwBufはポインタかなんか？宣言がついてなかったので、SplitRowプロパティにしてテストしました。 ExcelApplication1をそのままで実行すると、 下位オブジェクトにアクセスできないみたいなんで、Variantt型の変数に入れて実行したら一応は値は返ってきました。 -------------------------------------- var myXLapp: Variant; 〜〜〜以下略〜〜〜 myXLapp := ExcelApplication1.Application; if myXLapp.ActiveWindow.FreezePanes then begin ShowMessage('ExcelApplication1.ActiveWindow.FreezePanes = True'+Chr($A)+ 'Cloum:'+IntToStr(myXLapp.ActiveWindow.SplitColumn) + Chr($A) + 'Row:'+IntToStr(myXLapp.ActiveWindow.SplitRow) ); end else begin ShowMessage('ExcelApplication1.ActiveWindow.FreezePanes = False'+Chr($A)+ 'Cloum:'+IntToStr(myXLapp.ActiveWindow.SplitColumn) + Chr($A) + 'Row:'+IntToStr(myXLapp.ActiveWindow.SplitRow) ); end; --------------------------------------- こんな感じで。 Delphi使いのようですから、 ExcelApplication1をVariant型の変数にいれればいいみたいと説明すればわかると思います。 でも俺のスキルですぐ解決するわけないので、なんか落とし穴があるかもしれません。その点だけ付け加えておいてください。 //////////////////////////////// ご参考まで。