Bird-Soft Weblog—全記事新着一覧—
回覧百貨箱 >> 回覧雑記帳 >> BIRD 編 >> 全記事新着一覧
・回覧百貨箱TOP
回覧雑記帳(Weblog) 　回覧雑記帳は、平川滝蔵、平川滝雄、BIRDの3人が、思いつくままに書き綴るコーナーです。解説・旅行記モノはあとで整理して「回覧書庫」に置かれる予定です。地理的なことからPerl、HSPといったプログラム関係まで、さまざまな話題を提供したいと思います…。
BIRD 編(本拠地：BIRD PAGE)
→BIRD編TOP
→全記事新着一覧 		平川滝雄 編
→全記事新着一覧		 平川滝蔵 編
→平川滝蔵編TOP
→他コーナーもどうぞ…
・メンバー紹介・サイト概要
・音楽工房・都市工房・景の庫
（↑旧コーナーです。）
・掲示板・連絡先・リンク
→スタッフリンク…
・BIRD-PAGE (BIRD-SOFT)・Studio-D

BIRD編 メニュー

カレンダー

<< 2008年07月 >>
日 月 火 水 木 金 土
1 2 3 4 5
6 7 8 9 10 11 12
13 14 15 16 17 18 19
20 21 22 23 24 25 26
27 28 29 30 31

BIRD編 検索


おすすめ商品

BIRD編 新着記事一覧

BIRD編 過去の記事

動物コーナー

フィードを取得(ATOM)
Programing Memo

画像からGetPixelでピクセル情報を取得し、セルの色を変更2（Excel VBA）

前回の記事のVBAのプログラムを変更してパレットを変更するようにしてみました。
これで50色程度までなら元の画像と同じようにExcel上に表示できます。
（あまり意味はないVBAスクリプトですが＾＾；）

また、前回わかりやすいように冗長化していた部分を排除し、
さらに描画処理を一時的に停止することにより高速化しました。

※画像はあらかじめ50色以下に減色しておいてください。
※パレットを変更するので、他のExcelで開いているファイルは
閉じておいたほうがよいです。
※エラー処理は省略しているので、画像より大きい範囲に対して
　GetPixelしたりしないでください。。

Excel_color_P.png

VBAサンプルは続きから

続きを読む "画像からGetPixelでピクセル情報を取得し、セルの色を変更2（Excel VBA）" »

日時: 2008年07月26日 13:21 | | この記事へのコメント (0) | トラックバック (0)

観葉植物

シマトネリコ、ガジュマルなど、観葉植物のその後

簡単ですが、観葉植物のその後です。
（数ヶ月でも植物は結構変わるものですね。
　写真がぜんぜん間に合っていないです。。）　
　
　
◆2008/05/10購入のシマトネリコ

shimatoneriko2.jpg
↑5月24日のシマトネリコ。

shimatoneriko3.jpg
↑5月24日のシマトネリコ。小さな新芽がでています。

shimatoneriko4.jpg
↑5月24日のシマトネリコ。別のところからも新芽がでています。

shimatoneriko_0713.jpg
↑7月13日現在。順調に成長しています。
　（購入時から比較して10〜15cmくらい成長）

　
その他の観葉植物は続きから・・・。

続きを読む "シマトネリコ、ガジュマルなど、観葉植物のその後" »

日時: 2008年07月21日 23:54 | | この記事へのコメント (0) | トラックバック (0)

Programing Memo

Excelアドインの作り方(ツールバーの作成と削除)

Excelでアドインを作成する方法が気になったので調べてみました。
以下のサイトが参考になります。

エクセル　アドイン　作り方　第8回 - waste rest way
http://blog.goo.ne.jp/leapdys/e/bf48ff9d45364a3de9d66e23ee4b681a
　
　
VBAのウインドウで、ThisWorkBook上に
Private Sub workbook_addininstall()
'インストール時の処理（ツールバーの作成処理）
End Sub
　
Private Sub workbook_addinuninstall()
'アンインストール時の処理（ツールバー削除処理）
End Sub

と書くだけです。
　
ツールバーの作成のところに、
.OnAction = "マクロ1"
の記述がありますが、ここがボタンが押されたときに呼び出される関数で、この関数の定義を
標準モジュールに書いておけばOKです。

ExcelAddinToolbar2.png
※コードの内容は「エクセル　アドイン　作り方　第8回」の内容より。
　

続きを読む "Excelアドインの作り方(ツールバーの作成と削除)" »

日時: 2008年07月21日 12:12 | | この記事へのコメント (0) | トラックバック (0)

Programing Memo

画像からGetPixelでピクセル情報を取得し、セルの色を変更（Excel VBA）

画像からGetPixelでピクセル情報を取得し、セルの色を変更する Excel VBAのコードを書いてみました。
Excelで使える色数に制限があるため、うまくいかないこともありますが、
作ってしまったので載せておきます。

なぜこんなものを作ったかというと、以前の記事と組み合わせて、
画像からピクセル情報をテキストに落としたかったため。

C#を使えばすぐにできるのですが、Excelのセルにも反映させてたら
おもしろそうだと思ってしまったためです。思ったより苦労しました。
VBAでいろいろやろうとすると難しいです＞＜


★概要
・画像を読み込み、Pixel情報を取得
・Excelのセルの色を取得した色に変更
・取得した値をセルの値として入力
excel_pixel_test.png
↑実行のイメージ
　※実際はセルに値が入ります。
　※Excelの制限により、うまく色がつかないことがあります。
　　⇒参考記事


続きを読む "画像からGetPixelでピクセル情報を取得し、セルの色を変更（Excel VBA）" »

日時: 2008年07月20日 10:21 | | この記事へのコメント (0) | トラックバック (0)

Programing Memo

Excelでセルの色を変える - Interior.Colorでうまくいかない(Excel VBA)

前回のExcel VBAでは、オレンジが46など、
Excel VBA特有の色の指定の仕方をしました。

⇒例）
　　Range("A1").Interior.ColorIndex = 46


ところで、Excel VBAでは、このような指定の仕方以外にも
RGBを指定して色を変えられるようです。
⇒例）
　　Range("A1").Interior.Color = RGB(255, 255, 0)

そこで、その方法を使ってみましたが、うまく行かないこともあるような・・・。
理論上は任意の色を作り出せるはずですが、できないことがあります。
（私のやり方が悪いのかもしれないですが・・・）


ためしにサンプルを作ってみました。
RGBの値を1ずつ変えながら実行するだけのものです。
本当ならきれいなグラデーションとなるはずが、色が分離してしまっています↓

Excel_Cell_Color_1.png
↑色が分かれてしまっている（Excel VBAでのセルの色分けテスト)
　
　
Vcs_Color_2.png
↑本来はこうなるはず（Visual C#での色塗りテスト)
　
　　
もう一例やってみたので紹介します(続きから）

続きを読む "Excelでセルの色を変える - Interior.Colorでうまくいかない(Excel VBA)" »

日時: 2008年07月20日 01:55 | | この記事へのコメント (0) | トラックバック (0)