過去ログ

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　Ｐａｇｅ     677
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
　　　通常モードに戻る　　┃　　ＩＮＤＥＸ　　┃　　≪前へ　　│　　次へ≫　　　
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
　▼ウィンドウ枠の固定について  koji 03/2/1(土) 22:38
　　　┗Re:ウィンドウ枠の固定について  ポンタ 03/2/5(水) 9:07

　───────────────────────────────────────
　■題名 ： ウィンドウ枠の固定について
　■名前 ： koji
　■日付 ： 03/2/1(土) 22:38
　-------------------------------------------------------------------------
   
「新しいブックを開く」を実行すると、

元のブックでしているウィンドウ枠の固定が新しいブックに反映されません。

といって、プログラムで分割位置を固定したくはないのですが・・・

何か方法はないでしょうか？


　───────────────────────────────────────
　■題名 ： Re:ウィンドウ枠の固定について
　■名前 ： ポンタ
　■日付 ： 03/2/5(水) 9:07
　-------------------------------------------------------------------------
   
ThisWorkbookモジュールに



Dim x As New Class1



Private Sub Workbook_Open()

　　Set x.App = Application

End Sub





クラスモジュール Class1に



Public WithEvents App As Application



Public Sub app_NewWorkbook(ByVal Wb As Excel.Workbook)

　　Dim c As Integer, r As Long

　　Application.ScreenUpdating = False

　　ThisWorkbook.Activate

　　If ActiveWindow.FreezePanes Then

　　　　With ActiveWindow

　　　　　　c = .SplitColumn

　　　　　　r = .SplitRow

　　　　End With

　　　　　　Wb.Activate

　　　　With ActiveWindow

　　　　　　.SplitColumn = c

　　　　　　.SplitRow = r

　　　　　　.FreezePanes = True

　　　　End With

　　End If

　　Application.ScreenUpdating = True

End Sub





でどうでしょう？

━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
　　　通常モードに戻る　　┃　　ＩＮＤＥＸ　　┃　　≪前へ　　│　　次へ≫　　　
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　Ｐａｇｅ     677