Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


6152 / 13646 ツリー ←次へ | 前へ→

【46881】図形の照合 ニッキ 07/2/19(月) 17:47 質問[未読]
【46883】Re:図形の照合 へっぽこ 07/2/19(月) 18:27 発言[未読]
【46884】Re:図形の照合 ニッキ 07/2/19(月) 19:08 発言[未読]
【46888】Re:図形の照合 ichinose 07/2/19(月) 21:09 発言[未読]
【46917】Re:図形の照合 ニッキ 07/2/21(水) 16:25 お礼[未読]

【46881】図形の照合
質問  ニッキ  - 07/2/19(月) 17:47 -

引用なし
パスワード
   お教え下さい。

sheet1上のpicture11とpicture2が同じ図かどうか
調べる方法はあるのでしょうか?

【46883】Re:図形の照合
発言  へっぽこ  - 07/2/19(月) 18:27 -

引用なし
パスワード
   こんにちは。

こんな感じで図形の種類が拾えるかと。

Sub オートシェイプを選んで実行()
  MsgBox Selection.ShapeRange.Adjustments.Parent.AutoShapeType
End Sub

ちなみに…
1.マクロを書く画面の上のメニューにある「オブジェクトブラウザ」のボタンを押す。
 (三色の積み木を箱にしまっているようなボタン)
2.開いた画面の上の方にある双眼鏡マークの横に「MsoAutoShapeType」と入力し、
 双眼鏡ボタンを押す。

すると「何番が何の図形だよ」という一覧のようなものが表示されます。
(見てもあんまり良く分かりませんが)

画面の右上の「×」を押すとマクロを入力する画面に戻ります。

【46884】Re:図形の照合
発言  ニッキ  - 07/2/19(月) 19:08 -

引用なし
パスワード
   ▼へっぽこ さん:

有難うございます。

図は形式ではなく、図形そのものが同じかどうか調べたいのですが。

【46888】Re:図形の照合
発言  ichinose  - 07/2/19(月) 21:09 -

引用なし
パスワード
   こんばんは。
>図は形式ではなく、図形そのものが同じかどうか調べたいのですが。
http://www.vbalab.net/vbaqa/c-board.cgi?cmd=one;no=46871;id=excel

↑りんさんが紹介されているサイトのコードは試されましたか?

私が試した限りでは、掲載されているコードを使えば
シート上の図からビットマップを生成してくれます。
(これは、Imageコントロール等のPictureプロパティに相当します)
よって、シートの図をユーザーフォーム上に表示が出来ます。

Pictureプロパティが取得できれば、
Call Savepicture(Picture,FilePath)
等を使えば、Bmpファイルを作成することが出来ます。

Bmpファイルが作成できれば、ふたつファイルを比較することも可能です。
つまり、同じか違うかの比較は出来ます。

ということでまずは、りんさんが紹介されているサイトのコードを
よく調べて、Pictureを生成することから始めてみてはいかがですか?

【46917】Re:図形の照合
お礼  ニッキ  - 07/2/21(水) 16:25 -

引用なし
パスワード
   ▼ichinose さん:
ご返事ありがとうございました。

「46916」画像の貼り付けにも書いたのですが、内容が難しすぎて
初心者の私には全く理解できませんでした。
せっかくのアドバイスを頂きながら申し訳ありません。

6152 / 13646 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free