[[20041121062759]]　『タイトルバーにフルパス表示』（kuzu）　ページの最後に飛ぶ

『タイトルバーにフルパス表示』（kuzu）

 　おたずねします。Excelの問題ではないかもしれないのですが、
 ウィンドウの最上段のタイトルには、
 　　『　Microsoft Excel-Book1.xls　』
 と表示されます。これがフルパスで表示されると便利が良いの
 ですが、方法をご存じの方はおしえて下さい。
 よろしくお願いします。

 おはようございます。
こんな感じでどうでしょうか？
v(=∩_∩=)v
（SoulMan）
Private Sub Workbook_Open()
'    'フルパスを表示する場合
'    Application.Caption = ThisWorkbook.FullName
'    ActiveWindow.Caption = ""
    'デフォルトがない場合
    Application.Caption = Application.DefaultFilePath & ThisWorkbook.Name
    ActiveWindow.Caption = ""
'    '元に戻す場合
'    Application.Caption = ""
'    ActiveWindow.Caption = ThisWorkbook.Name
End Sub
失礼しました。新規Bookの時にでませんね。
ということでちょっと訂正m(__)m
あれぇ？？新規BookにOpenもないですよねぇ？？（￣□￣；）！！
要は
Caption
です。
後は、適当にアレンジしてください。
ではでは、v(=∩_∩=)v
2004/11/21　9:50
（SoulMan）

 ありがとうございます。
 ThisWorkbookオブジェクトに記述することで表示ができました。
 ただ、これだとすべてのブックにマクロを書かねばならず、
 面倒なので、Excel本体の表示設定やツールのオプション設定な
 ど、又はその他の設定で常時既存のブックを開くとフルパスが見れる
 ことが出来ないでしょうか？　　m(_ _)m
 (kuzu)

 個人用マクロブックに登録して
ツールバーに「にこちゃんマーク」でも出したらどうでしょうか？
v(=∩_∩=)v
（SoulMan）
Option Explicit
Sub MyTitle()
    Application.Caption = ActiveWorkbook.FullName
    ActiveWindow.Caption = ""
End Sub

 サンキューです。(SoulMan) さん。
 絵文字もできました。
 これからもよろしくよろしくお願いします。m(_ _)m　(^^)/~~~

 もう一度質問です。
 いちいちマクロの実行は面倒なので自動実行させようと、
  Option Explicit
  Sub Auto_open()
    Application.Caption = ActiveWorkbook.FullName
    ActiveWindow.Caption = ""
  End Sub
 とModule1を変更すると、「オブシエクト変数又はWITHブロック
 変数が設定されていません」とエラーが表示されます。
 どこがおかしいのでしょうか？初心者の質問なので恥ずかしい
 のですが、教えてください。よろしくお願いします。
 (kuzu)

 >「オブシエクト変数又はWITHブロック変数が設定されていません」
 ということだから、、面倒だけど、一回一回ボタンを押してちょ
ってエクセル君が怒ってるんだと思いますよぉ。
それに、自動っていたって開くのは一回だけだしね(^^;;;
そんな時は代わりに
MsgBox "ok"
こんなのを入れてみるといいかもしれませんね
v(=∩_∩=)v
（SoulMan）

 私も作ってみた。あまり自信はありません。　(wizik)

 '************************************
 ' 個人用マクロブックの標準モジュール
 '************************************
 Dim cls As New Class1

 Sub Auto_Open()
     Set cls.App = Application
 End Sub

 '**************************************
 ' 個人用マクロブックのクラスモジュール
 '**************************************
 Public WithEvents App As Application

 Private Sub App_WorkbookOpen(ByVal Wb As Workbook)
     If Wb.Name = "PERSONAL.XLS" Then Exit Sub
     ActiveWindow.Caption = Wb.FullName
 End Sub

 おぉぉぉぉぉw(☆o◎)wがぁ～～ん
退散です。☆彡
（SoulMan）

コメント返信：

[ 一覧(最新更新順) ]

[[20041121062759]] 『タイトルバーにフルパス表示』（kuzu） ページの最後に飛ぶ

[[20041121062759]]　『タイトルバーにフルパス表示』（kuzu）　ページの最後に飛ぶ