Note

kamiyuiは 尽くして捧げて 貢いでも 今なお遠き 修業の道 辛之奏上

全体表示

[ リスト ]

Finale(YahooBT)

朝ぼけは 靄(もや)か川霧(かわむ)か ぼける街
               仰ぐ空にも ぼけのキラメキ



 ボケているのは空の上の輝きではなく、メッキの剥げた
地上の星もどきのような気がします。幾つかの説明忘れがありました。
今回、メール送信のマクロと罫線マクロを説明したいと思います。

(1)メール送信マクロ

 UserForm の CopyRight 2008 by hatakanajp LabelのClick イベントとして
登録されています。早速そのマクロを見てみることにしましょう。



Private Sub Label4_Click()
Call ShellExecute(0&, "Open", "mailto:○a×a△a★ajp@yahoo.co.jp" _
, vbNull, vbNull, SW_NORMAL)
End Sub





 勿論、このメールアドレスは出たら目です。そして、ShellExecute 関数は
Win32APIの関数です。エクセルにもメール送信のマクロはあります。
しかし、エクセルマクロでメーラーを立ち上げると、OutLookで立ち上がり、
今作業中のBookを添付して送信になったと思います。通常使用している
メール送信ソフトで立ち上げる為に、この関数を使ってみました。

(2)罫線マクロ

 設定タブの一番下、罫線フレームに罫線作成のマクロを置いています。
チェックボックスにチェックを入れない限り、このマクロは、いくらOKボタンを
クリックしてもこのマクロは稼動しません。また、このフレームでは、
Colorボタンで線色の指定と、線幅の指定の出来るようにしています。
ここでは、OKボタンが押された時のイベントマクロだけを見てみましょう。
なお、この罫線作成方法はumabさんの考えられたものです。
罫線の作成方法につきましては、umabさんのBlogのHTMLの勉強を参照ください。
http://blogs.yahoo.co.jp/umab082/folder/757872.html


Private Sub CommandButton10_Click()

If CheckBox12.Value = True Then
MyBlogT = "<marquee bgcolor=" + """" + Label5.Caption _
+ """" + " height=" + """" + TextBox5.Text _
+ """" + " width=560" + " direction=up>" _
+ Chr(13) _
+ "<MARQUEE bgcolor=white height=5 direction=up></MARQUEE>"
'上記全角を半角に変換のこと
Call ClipBoard_SetData(MyBlogT)
End If

End Sub





今まで何度も使ってきた関数やステートメントばかりだと思います。
Ifステートメントでボタンのチェック状況を確認してチェックがあれば、
指定のHTMLタグを作成し、それをClipBoard_SetData関数でクリップボード
へ転送しています。
以上これにて、YahooBTの説明を終了します。



Series Finale

閉じる コメント(4)

顔アイコン

フィナーレですね。おめでとうございます。

2008/1/9(水) 午前 9:56 [ - ]

顔アイコン

はい、ありがとうございます。

2008/1/9(水) 午後 0:41 ハマさん

顔アイコン

頭 痛くなってきたぁ。。

2008/1/9(水) 午後 8:25 masatopapa

顔アイコン

masatoさん、風邪ですか。

2008/1/9(水) 午後 8:28 ハマさん


.


プライバシー -  利用規約 -  メディアステートメント -  ガイドライン -  順守事項 -  ご意見・ご要望 -  ヘルプ・お問い合わせ

Copyright (C) 2019 Yahoo Japan Corporation. All Rights Reserved.

みんなの更新記事