(1)Worksheet.PageSetupに関して
(1.1)ZoomプロパティがFalseの場合(縦横ページ数を指定した場合)
Worksheet.HPageBreaks.Count または、 Worksheet.VPageBreaks.Count の値が正しくないことがある。
【環境】
VSTO_v4+Excel2010
【解決策】
FitToPagesTall プロパティまたは FitToPagesWideプロパティからページ境界数を算出
(1.2)PageSetupのZoomプロパティとDraftプロパティをを変更しても、反映されないことがある
【解決策】
.BlackAndWhiteなどの関係ないプロパティを、更新することでZoomプロパティやDraftプロパティも更新される。
(2)アクティブシートを定義したらOutlookが起動した。
Dim WithEvents cmnExcel as Excel.Application
Private Sub cmnExcel_WorkbookBeforePrint(Wb As Microsoft.Office.Interop.Excel.Workbook, _
ByRef Cancel As Boolean _
) Handles cmnExcel.WorkbookBeforePrint
‘中略
Dim ash As Object = cmnExcel.ActiveSheet ‘←コレ
‘中略
End Sub
症状としては、Outlook2007の初回起動時のアカウント等の設定画面が起動する。
【環境】
VSTO_v3+Excel2007,Outlook2007はインストール済み未使用の状態
【解決策】
Outlook2007の初回起動時の設定を一度するとその後はでない。
Comment feed