2009年5月7日木曜日

05/07 マクロ記録でグラフのコピー方法を探った。

Sub Macro1() 'マクロ記録でグラフのコピー方法を探った。

Range("A10:C14").Select
Selection.Copy

ActiveSheet.ChartObjects("グラフ 1").Activate
ActiveChart.ChartArea.Select
Application.CutCopyMode = False
ActiveChart.ChartArea.Copy

Range("A32:A42").Select
Selection.Copy

Range("C32").Select

End Sub

05/07 Outlook olFormatRichText リッチテキストのメールを作るには?

メールの書式・フォーマットをリッチテキストにするのかぁ。
VBAで探ると、このあたり???

MailItem.BodyFormat Property
http://msdn.microsoft.com/en-us/library/bb207134.aspx

OlBodyFormat Enumeration
http://msdn.microsoft.com/en-us/library/bb208058.aspx

olFormatHTML 2 HTML format
olFormatPlain 1 Plain format
olFormatRichText 3 Rich text format
olFormatUnspecified 0 Unspecified format

'メールアイテムの作成
Set objMAIL = oApp.CreateItem(0) 'olMailItem=0 直値はいけないと思いつつ、
objMAIL.BodyFormat = 3 'olFormatRichText=3 で リッチテキスト形式へ

2009年5月5日火曜日

IE Web Browser 操作 参照設定をしましょうね。

IE操作のプログラムを組む前に まずは、参照設定かなぁ。
コードを書くとき、探る時、参照設定しておくと .ドットをタイプした時にメソッドやプロパティが表示されるので便利です。下記 私が操作した参照設定の方法です。

ツール の 参照設定から、
下記の2つにチェック(レ)を入れてください。

□ Microsoft HTML Object Library

□ Microsoft Internet Controls
(※見つからない場合は、Browser Helpersにチェックを入れてください。)

チェックを入れると、
Dim IE As InternetExplorer

Dim oBODY As HTMLBody
などが使えるようになります。