Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6161 / 13655 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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 -
引用なし
パスワード
   こんばんは。
>図は形式ではなく、図形そのものが同じかどうか調べたいのですが。
ｈｔｔｐ://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」画像の貼り付けにも書いたのですが、内容が難しすぎて
初心者の私には全く理解できませんでした。
せっかくのアドバイスを頂きながら申し訳ありません。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6161 / 13655 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free