« Flashのスクリプト、 | メイン | 史上最悪のバースデー »

2005 - 2 /26

Word でインタラクティブ囲い文字

「インタラクティブ」なんて大それたタイトルだけど、汎用性のない、子供の遊びレベルのコードです。
元記事はこちらの掲示板

たったあれだけのコードだけど、Word の VBA も奥が深いというか、ワケがわからんというか、なんともはや。

除菌ちゃんのアドバイスを参考に、ActiveDocument.Pathプロパティを使って、カレントドキュメントのパスを得ることで、たぶんどこでも動くようになったはず。

まぁでも、Word で、しかもただ○で囲むためだけに VBA 使うのって、はなはだ自己満足。

Private Sub Label1_Click()
  Label1.Picture = _
  LoadPicture(ActiveDocument.Path + "\i\you_maru.gif")
  Label2.Picture = _
  LoadPicture(ActiveDocument.Path + "\i\huyou.gif")
End Sub
Private Sub Label2_Click()
  Label1.Picture = _
  LoadPicture(ActiveDocument.Path + "\i\you.gif")
  Label2.Picture =_
  LoadPicture(ActiveDocument.Path + "\i\huyou_maru.gif")
End Sub

docファイルのダウンロード（you_huyou_check.lzh：14,792bytes）

投稿者 hamayo : 2005年2月26日 22:31