ホチキス先生の「プログラマーと呼ばれたい」

InfoPath & SQL Server !

Archive for 12月 2010

WordPress blogのウィジットを変更する

leave a comment »

WordPress blogのテーマを「The Journalist v1.9」に変更したが、ページの右上にロゴを付けたいと思った。そこでこのテーマ「The Journalist v1.9」をカスタマイズしてみた。

デザインをカスタマイズするために、管理ページである「ダッシュボード」から左ペインのメニュー「外観」の「ウィジット」を開いた。ここにはblogの右ペイン「サイドバー」に「ウィジット」と呼ばれるWebパーツを加えることができる。ウィジットを見ると「画像」というものがあるので、これをドラッグして「サイドバー1」に置く。いくつか設定項目があるので、必要と思われるものを設定して保存した。画像は2つ配置し、ひとつは自分の顔写真、もうひとつはMicrosoft MVPロゴマークとした。

プレビューすると画像は確かに表示されたが、最初にあった月ごとのリンクやカテゴリ索引がなくなってしまったのだ。

あわててウィジットの編集に戻る。あらためてウィジットの種類を見ると、なかなか魅力的なものがある。まず「カテゴリー」そして「アーカイブ」、「人気のページと投稿」、「Twitter」、「ブログ統計」、そして「メタ情報」のウィジットを設定した。いい感じになった。

Written by Yoshio Matsumoto

2010年12月25日 at 10:58 PM

カテゴリー: WordPress

Tagged with , ,

WordPress blogのテーマを「DePo Square」から「The Journalist v1.9」に変える

leave a comment »

本業である学校の情報システムが、来年度の準備をすることで忙しかったし、「アドミンティーチャーズ」の勉強会があったこと、教科「情報」に関する久々に面白いシンポジウムに参加したこと、などで時間が取れなかったのだが、久しぶりにblogのメンテナンスをする時間が持てている。今日はこのblogのテーマを変えてみた。

前の「DePo Square」はシンプルでよかったのだが、シンプルすぎて使いにくい面があった。そこでテーマをいくつかプレビューし「zBench」というテーマが気に入った。ところがこの「zBench」にすると、記事の改行が失われてしまうという現象がおこった。日本語の問題だろうか。

「zBench」はとても気に入ったのだが仕方ない。と思いながら次に見つけたのがこの「The Journalist v1.9」だ。かなり気に入っている。しばらくこのテーマでいこうと思う。

Written by Yoshio Matsumoto

2010年12月25日 at 9:59 PM

カテゴリー: WordPress

Tagged with , ,

エクセルのマクロで図形を操作する(4) – オートシェイプを消去する

leave a comment »

ではエクセルのシートに作ったオートシェイプを消去するにはどうすればいいだろうか。オートシェイプを削除するには、deleteメソッドが使えるはずだ。試しに次の2つのマクロを作ってみよう。

————————————————————————

Sub smaile()
ActiveSheet.Shapes.AddShape msoShapeSmileyFace, 10, 20, 100, 100
ActiveSheet.Shapes.AddShape msoShapeSmileyFace, 120, 20, 100, 100
End Sub

————————————————————————

Sub delete()
Sheet1.Shapes(1).delete
Sheet1.Shapes(2).delete
End Sub

————————————————————————

最初のマクロでは、スマイルのオートシェイプを2つ作っている。これら2つのオートシェイプはそれぞれShapes(1)とShapes(2)という番号で管理されている。そして次のマクロでは、そのShapes(1)とShapes(2)に対して消去のDeleteメソッドを実行している。だが残念ながらこのマクロは、消去するときにエラーになる。ひとつめのシェイプを消去した後「指定したコレクションに対するインデックスが境界を越えています。」というメッセージが出るはずだ。なぜかといえば、Shapes(1)を消去したときに、自動的にShapes(2)がShapes(1)になってしまうからだ。そこで消去する順番は、まず数字の大きいShapes(2)を消去し、その次にShapes(1)を消去する、というようにすればいい。次のマクロは正しく動くだろう。

————————————————————————

Sub smaile()
ActiveSheet.Shapes.AddShape msoShapeSmileyFace, 10, 20, 100, 100
ActiveSheet.Shapes.AddShape msoShapeSmileyFace, 120, 20, 100, 100
End Sub

————————————————————————

Sub delete()
Sheet1.Shapes(2).delete
Sheet1.Shapes(1).delete
End Sub

————————————————————————

あるいは次のように、Shapes(1)を二回消去する、というようにしてもうまく消去できる。

————————————————————————

Sub smaile()
ActiveSheet.Shapes.AddShape msoShapeSmileyFace, 10, 20, 100, 100
ActiveSheet.Shapes.AddShape msoShapeSmileyFace, 120, 20, 100, 100
End Sub

————————————————————————

Sub delete()
Sheet1.Shapes(1).delete
Sheet1.Shapes(1).delete
End Sub

————————————————————————

Written by Yoshio Matsumoto

2010年12月25日 at 7:01 PM