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
2009年5月7日木曜日
05/07 マクロ記録でグラフのコピー方法を探った。
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
などが使えるようになります。