エクセルで作ったソフト名

解決済

質問者：nanacyanyo
質問日時：2006/05/30 14:52
回答数：4件

エクセルやＶＢＡででソフトを作ってる初心者です。
エクセルで給与計算ソフトを作っているですが、
ファイルの名前を例えば「給与計算」とします。
そうするとそのファイルを開けたときにエクセルなの
で当然ですが、左上に、「Microsoft-Excel-給与計算」
と出ます。これを、「給与計算」とだけ表示することは
できるのでしょうか？
アイコンも作成して使おうと思っているのですが、
アイコンをクリックすると中身はエクセル・・・という
感じなのです。
なにか、別のソフトが必要なのでしょうか？
それともエクセルを使用して作ったソフトはExcelと
表示されて当然だからいじれないのでしょうか？
ソフト作成に詳しい方、アドバイスお願いします。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (4件)

No.1

回答者： hana-hana3
回答日時：2006/05/30 15:15

＞それともエクセルを使用して作ったソフトはExcelと

表示されて当然だからいじれないのでしょうか？

そうです。
ＶＢＡはエクセルの機能を拡張するために用意された機能です。単独で動作させる事はできません。

エクセル（本体）とは個別のソフトにしたいなら、開発ソフトを使って下さい。

- 0
- 件

通報する

この回答へのお礼

さっそくのお返事ありがとうございました。
他の方が教えてくださったコードで何とかなりそうです。
アドバイスありがとうございました。

通報する

お礼日時：2006/05/31 16:52

No.2

回答者： 1050YEN
回答日時：2006/05/30 15:46

単純にキャプションを設定するなら、APIで無理やりできます。

以下をThisWorkbokkの中に埋め込んでください。

キャプションを設定したいタイミングで、SetOriginalCaption()を呼んであげたら、キャプションの設定を行います。

Private Const DEF_TITLE As String = "給与計算"

Private Declare Function GetForegroundWindow Lib "user32" () As Long
Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hWnd As Long, ByVal lpString As String) As Long

Private Sub Workbook_Activate()
　　Call SetOriginalCaption
End Sub

Private Sub Workbook_WindowActivate(ByVal Wn As Window)
　　Call SetOriginalCaption
End Sub

Private Sub SetOriginalCaption()
　　Dim hWnd As Long
　　
　　hWnd = GetForegroundWindow
　　SetWindowText hWnd, DEF_TITLE
End Sub

アイコンについては、API:SetClassLong()を応用したら出来そうな気もしますが、もしかしたらExcel本体、もしくはOSの動作が不安定になるかもしれません。