2008年06月05日 [長年日記]
_ momo-lab.netの移転。
いままで(7年くらい？)momo-lab.netのサイトはSPPDを利用していたのですが。 別でさくらインターネットも使っていて、コンテンツが2箇所に分散してしまっていたのでした。 …とはいっても、さくらのドメインを使って公開していたコンテンツはほとんど無かったのですが。
で、やっとこさ、借りているレンタルサーバをひとつにまとめる決心をしまして、コンテンツをさくらのサーバに移行していたわけです。 移行自身は完了し、現在はmomo-lab.netのアクセスは全てさくらのサイト(momo-lab.sakura.ne.jp)にリダイレクトするように設定されています。
今日、ドメインの移管申請をしたので、今月の中ごろくらいからはさくらに一本化できる見通しです。 二つのレンタルサーバ会社と同時にやり取りをしなきゃいけなく、いろいろと面倒だと思い込んでいたのですが、申請申し込みはあっけなく終わってちょっと拍子抜けです。 …途中AUTHCODEを間違えて申請してしまうハプニングはありましたけどね。
なんにせよ、このまま無事ドメイン移管できることを祈っているところです。
ってまぁ、全部こちら内部の話で、ウチのサイトを見に来てくださっている皆様にはまったく影響の無い(ハズの)話なんですけどね。 とはいえ、もしかしたらサイトが見られなくなったりなど、不都合をお掛けするかもしれませんが、ご了承くださいm(_ _)m
_ Excelに貼り付けた画像サイズを簡単に調整するマクロ。
インストールマニュアルを作ったり、テスト結果のハードコピーを保存したり。 私の環境ではExcelに画面のハードコピーを貼り付けることが多いです。 というか、作成するドキュメントは何もかにも全てExcelです。基本的に。
そんなExcel大好きな環境の是非はさておき、 Excelに画像ファイルを貼り付けた後に印刷用に調節するため、 画像のサイズを調整することがよくあります。 しかも、同じサイズの画像を同じサイズに拡大・縮小することが多いです。
今までずっと、
- 「Ctrl+1」で「図の書式設定」ダイアログを出して、
- 「Ctrl+PageUp」で「サイズ」タブに移動して、
- 「Alt+H」で「倍率」の「高さ」項目に移動して、
- 倍率を入力して「Enter」。
なんてことをやってました。 マウスでやるよりはよっぽど速いのですが、やっぱり面倒くさいです。
ということで、面倒くさいことはコンピュータに任せようと こんなマクロを作ってみました。 PERSONAL.XLSにでも標準モジュールを作成して貼り付けてください。
Private 画像サイズを調整_倍率 As Double
Sub 画像サイズを調整()
'画像じゃなければ終了
If Not TypeOf Selection Is Picture Then
Exit Sub
End If
'倍率を求める
If 画像サイズを調整_倍率 = 0 Then
画像サイズを調整_倍率 = 100
End If
Dim buff As String
buff = CStr(画像サイズを調整_倍率)
buff = InputBox("倍率を百分率(%)で指定してください。", "倍率の設定", buff)
If buff = "" Or Not IsNumeric(画像サイズを調整_倍率) Then
Exit Sub
End If
画像サイズを調整_倍率 = CDbl(buff)
'画像サイズを変更
Dim pic As Picture
Set pic = Selection
With pic.ShapeRange
Call .ScaleHeight(画像サイズを調整_倍率 / 100, msoTrue)
Call .ScaleWidth(画像サイズを調整_倍率 / 100, msoTrue)
End With
Set pic = Nothing
End Sub
実行すると、画像を選択している場合は「倍率の設定」ダイアログがでるので そこに倍率を百分率で入力してあげると、その倍率に画像サイズが変更されます。 一度入力した倍率は保存されるので、何度も同じサイズに変更したい場合は そのままEnterでOKです。
いまだにOffice2000なウチの環境でしか動作確認していないため、 最近のOfficeで正しく動くかは分かりませんが、多分大丈夫でしょう。きっと。
Excelマクロって、もっと仰々しく作成してツールとして提供するのにしか使ってなかったのですが、 こういうちょっとした作業の効率化にも使えるんですよね。 ちょびっと忘れていました。
なんにせよ、これで私の作業効率が少しだけ向上したのでした。