- ベストアンサー
エクセル 図形の寸法を取得したい
エクセル上に多数の四角が描かれており、これらの高さ、幅の平均値を計算したいと思います。どのようにしたら良いでしょうか?VBAでも構いません。 因みに、マクロの自動記録で「オートシェイプの書式設定→サイズ→高さ→コピー→(ワークシートのひとつのセルに)ペースト」を実施しましたが、記録されたのはペーストだけでした。 出来れば本日仕事で使えれば幸いです。宜しくお願い致します。
- みんなの回答 (2)
- 専門家の回答
質問者が選んだベストアンサー
その他の回答 (1)
- merlionXX
- ベストアンサー率48% (1930/4007)
関連するQ&A
- エクセルVBAで直線図形(オートシェイプ)を書きたいのですが。
エクセルVBAで直線図形(オートシェイプ)を書きたいのですが。座標の指定方法がいまひとつ分かりません。 マクロの記録で、座標数値の設定は分かるのですが、セルに対しての指定方法が分かりません。 図形をドラッグ指定したA1セルからC1セルまで直線を書きたいのです。セルへの始点終点の指定方法が有るのでしょうか。
- 締切済み
- Visual Basic
- エクセル セル(列)の幅
エクセルでスケジュールを作成中ですが、ガントチャートっぽくしたく オートシェイプでバーを作成したいのですが、一つのセルの幅の寸法と オートシェイプの幅の寸法が合わない為、VBAで計算させようとすると うまくいきません。 オートシェイプのサイズの単位は"mm"でが、CELLの幅の単位はいったいなんでしょうか? 又、セルの幅の表示をmm単位にする方法はありますか?
- 締切済み
- その他(プログラミング・開発)
- Excel VBA で図形を描く方法について
Excel VBA初心者です。 Excel のオートシェイプで任意の四角を描くには、始点をマウスでクリックし対角にドラッグすれば自由な四角が描けますが、VBAでこれを行なう場合、どのように記述すればいいのでしょうか?。 Excel は2003です。 いろいろ調べてみると… 一例ですが… Set Shp = WS.Shapes.AddShape(msoShapeRectangle, 50, 50, 100, 40) このような記述をよく目にします。 恐らくこれは始点(50,50)、四角の大きさ(100,40)となると思います。 私がVBAで描きたいのは、マウスを使った任意の位置と大きさの四角と丸です。 説明が下手で申し訳ありませんが、よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- オートシェイプの図形の高さ、幅をマクロで変えたい
エクセルのオートシェイプで図形を作って、それをグループ化して、 A1(縦)A2(横)のセルへ数値を入力するとシート1上にあるオートシェイプの長さと幅が変化するようにしたいのです。マクロで出来るでしょうか。 シート上の図形は、Group25 です。 エクセル2010を使用しています。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセルで自作の図形をメニュー化できますか?
エクセル2003を使用しています。 (sheet1)に書式を作成してあります。 (sheet2)にはオートシェイプで色々な図形を作って並べてあります。 (sheet2)の記号で必要なものをコピーして(sheet1)に貼り付けるという作業をしています。 この(sheet2)の図形を、オートシェイプのツールバーをクリックすると出てくる、基本図形などのメニューのような形で登録できないものかと考えています。 書式の中に数種類の図形をコピー&ペーストするので、メニューの中で図形を選んでクリックしたら貼り付く。 という作業が出来れば効率的なのですが・・・ どなたか、このような方法をご存知ないでしょうか? よろしくお願い致します。
- ベストアンサー
- オフィス系ソフト
- Excelのマクロを使用してオートシェイプ図形の色を変えたいのです。
Excelのマクロを使用してオートシェイプ図形の色を変えたいのです。 オートシェイプ図形を50個ならべて、マウスでクリックしてものは色が変わるようにしたいと思います。 マクロ記録をすると以下のようになりました。 Sub Macro1() ActiveSheet.Shapes("AutoShape 1").Select Selection.ShapeRange.Fill.ForeColor.SchemeColor = 45 Selection.ShapeRange.Fill.Visible = msoTrue Selection.ShapeRange.Fill.Solid End Sub このプログラムを50個書くわけにはいかないのですが、プログラムで処理するのに問題点が2つ出てきました。 ・オートシェイプ図形の名前が"AutoShape 1"となっていますが、これを変更したいのですが、書式設定にはありませんでした。変更するにはどうすればよいのでしょう? ・クリックしたオートシェイプ図形がどれであるかを返す関数がないと、どの図形がクリックされたかわからないのですが、これを返す関数はあるのでしょうか? よろしくお願いします。
- ベストアンサー
- その他MS Office製品
- オートシェイプの図形の位置を固定したい。
word2000を使っています。 ページをオートシェイプの四角で囲って、その中に表を作成しています。 表の行を追加、削除したりすると四角も移動してしまいます。 これを避けたいのですが、どうしたらよいでしょうか? ちなみに、オートシェイプの書式設定の文「字列と一緒に移動する」はチェックしていません。
- 締切済み
- オフィス系ソフト
- エクセルの表の中身の文字ををオートシェイプの図形のなかにコピーしたい
エクセルで作った、連絡網を改良したいのです。コネクタの線もつながっていないし、四角の囲みも見栄えが悪いので、オートシェイプで図を作り、その中にエクセルの四角の中の文字を入れたいのです。4段のセルのなかに文字があり、それをどうやったらオートシェイプのなかにコピーして貼り付けることができるのでしょうか。教えてください。
- ベストアンサー
- オフィス系ソフト
- 複数セルに一本の斜線を引く
こんにちは。エクセル2000を使用しています。 斜線を引くにはセルの書式で設定するか、オートシェイプを使えばできますが、複数のセル(例A1:C2)に一本の斜線をひく場合オートシェイプを使わずにひく方法はないでしょうか?オートシェイプだとセルの幅や高さを変更するとズレてしまいます。なにかよい方法はありませんか。よろしくお願いします。
- 締切済み
- オフィス系ソフト
お礼
朝早くからご指導頂き誠に有り難うございました。 dim、図形属性の読み込み方など勉強になりました。 仕事の方も目途が立ちました。 もし次の機会が有りましたら、また宜しくお願い申し上げます。