初心者備忘録

Webページ開設しました → 初心者備忘録: http://www.ka-net.org/

全体表示

[ リスト ]

今日はeditBoxを使って、リボンメニューにGoogle検索窓をつけてみようと思います。

【Office 2007】Google検索窓をつける
1. Office 2007ファイルを開き、標準モジュールに下記コードを貼り付けた後保存します。(今回はExcelファイル)
Sub myEditBox_onChange(control As IRibbonControl, text As String)
'Google検索用プロシージャ

  Dim objIE As Object
  Dim strParam As String
  Const URL As String = "http://www.google.co.jp/"
  
  If Len(text) <> 0 Then
    '検索ワードをURLエンコード
    text = EncodeURL(text)
    '検索用パラメータセット
    strParam = "search?hl=ja&lr=lang_ja&ie=UTF-8&oe=UTF-8&q=" & text & "&num=50"
    
    Set objIE = CreateObject("InternetExplorer.application")
    With objIE
      .Visible = True
      Call .Navigate(URL & strParam)
    End With
    Set objIE = Nothing
  End If
  
End Sub

Function EncodeURL(strWord As String) As String
'URLエンコード用Function

  Dim objSC As Object
  
  Set objSC = CreateObject("ScriptControl")
  With objSC
    .Language = "JScript"
    EncodeURL = .CodeObject.encodeURIComponent(strWord)
  End With
  Set objSC = Nothing

End Function
※ URLエンコード用の関数は下記Webページを参考にしました。
http://www.moug.net/faq/viewtopic.php?t=30165

2. Custom UI Editor Toolで1.のファイルを開きます。
3. 下記のコードを貼り付け、上書き保存します。
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
  <ribbon startFromScratch="false">
    <tabs>
      <tab id="myTab" label="My Tab" insertBeforeMso="TabHome">
        <group id="myGroup" label="My Group">
          <editBox id="myEditBox" label="Google" maxLength="50" sizeString="wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww" onChange="myEditBox_onChange" />
        </group>
      </tab>
    </tabs>
  </ribbon>
</customUI>
イメージ 1

※ editBoxの「maxLength」属性で、入力できる最大文字数を設定しています。
※ editBoxの「sizeString」属性で、editBoxのサイズを設定しています。
※ editBoxの「onChange」属性で、editBoxの値が変更されたときに呼び出される関数を指定しています。

4. 3.のファイルをマクロを有効にして開くと、My TabタブにGoogle検索窓が追加されているのが確認できます。
イメージ 2

5. この検索窓にキーワードを入力してEnterキーをクリックすると、Internet Explorerが起動し、入力したキーワードでGoogle検索されます。
イメージ 3

イメージ 4


以上で作業は終了です。
上記作業の通り「onChange」属性を使うことによって、editBoxの値が変更されたときにプロシージャを呼び出すことができます。


【関連記事】
「ブログコンテンツ・リボンのカスタマイズ関連」
http://blogs.yahoo.co.jp/kinuyo_asami/17750449.html


http://x7.o-oku.jp/bin/ll?09817230L

この記事に

閉じる コメント(0)

コメント投稿

顔アイコン

顔アイコン・表示画像の選択

名前パスワードブログ
絵文字
×
  • オリジナル
  • SoftBank1
  • SoftBank2
  • SoftBank3
  • SoftBank4
  • docomo1
  • docomo2
  • au1
  • au2
  • au3
  • au4
投稿

.


みんなの更新記事