No.2ベストアンサー
- 回答日時:
Sub sample()
Dim shp As Shape
For Each shp In ActiveSheet.Shapes
'図形の左上が位置するセルに書き込む
shp.TopLeftCell = shp.TextFrame.Characters.Text
'図形の左上の右下のセルに書き込む
shp.TopLeftCell.Offset(1, 1) = shp.TextFrame.Characters.Text
Next
End Sub
図形の大きさがわからないので、
文字を書き込むセルを2パターンにしました。
不要な方は削除して下さい。
参考になるかな。
No.1
- 回答日時:
こんばんは。
For Eachで、全ての図形を処理する事ができると思います。
良いサンプルが見付かりませんでしたが、質問者さんが1つできているとの
事ですので、それを、For Eachで処理すればできるかと思います。
●For Each~Nextループで全Shapeを選択するサンプルマクロ
https://www.relief.jp/docs/excel-vba-select-all- …
上記で、選択する部分を、質問者さんの処理に置き換えたら良いかと。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルの値を元に図形の色を変えたい 2 2022/05/11 01:37
- Excel(エクセル) Excelのマクロについて教えてください。 4 2022/05/31 14:07
- PowerPoint(パワーポイント) ExcelのVBAコードについて教えてください。 3 2022/05/25 14:32
- PowerPoint(パワーポイント) 2016EXCEL→2016PowerPointにコピペすると図形がゆがみます 5 2022/03/31 11:44
- Word(ワード) ワード 2003。表とテキストボックスや図をグループ化出来ませんか? 2 2022/04/17 15:06
- Excel(エクセル) ExcelのVBAコードについて教えてください。 1 2022/06/17 15:40
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2022/05/26 17:19
- その他(Microsoft Office) ワードのマクロについて教えてください。 1 2023/01/22 11:43
- 物理学 写真図3の回路の入力電圧CH1と出力電圧CH2の波形をオシロスコープで測定しました。発振器を使って矩 3 2022/09/25 14:44
- Excel(エクセル) Excelのvbaについて教えてください。 図形一つ一つに名前がついています。 指定した図形の名前を 2 2022/08/04 15:13
このQ&Aを見た人はこんなQ&Aも見ています
-
「どうして捨てられないの?」前妻の物を捨てられない男性の心理って?
前妻の物を捨てられない理由に加え、捨てるための手段はあるのかを専門家に聞いてみた!
-
Excelで、図形内の文字をセルに抽出したいです
Excel(エクセル)
-
VBA 図形のテキスト取得
Excel(エクセル)
-
ExcelVBA 図形をクリックした際のイベントを拾うには
Visual Basic(VBA)
-
-
4
excel 図形に入れたテキストやテキストボックスの文字をセルに書き出す
Excel(エクセル)
-
5
VBAのテキストボックスに文字列を貼り付ける方法
Access(アクセス)
-
6
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
7
エクセルテキストボックスの文字列をセルに引っ張ってくるやり方
Visual Basic(VBA)
-
8
全てのテキストボックスをセルに出力
Visual Basic(VBA)
-
9
ListViewで複数選択された項目を一度に削除する方法
Visual Basic(VBA)
-
10
VBAでの結合セルのコピー&ペースト
Excel(エクセル)
-
11
テキストボックスの番号を使ったFor~Next文について
Visual Basic(VBA)
-
12
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
13
【EXCEL VBA】オートシェイプをクリックした時にそのオートシェイプの名前を取得したい
Visual Basic(VBA)
-
14
VBA Shapes コピーと名前
Excel(エクセル)
-
15
どこにもフォーカスを当てたくない
Access(アクセス)
-
16
エクセルVBAでセルに入力したパスでブックを開く
Excel(エクセル)
-
17
テキストボックスのvalueとtextの違い
Visual Basic(VBA)
-
18
エクセルVBA 画像を貼り付けるセル位置を指定する方法
Excel(エクセル)
-
19
実行時エラー 438になった時の対処法を教えて下さい。
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
PowerPointで台形を描く方法
-
pdf上に描画した図形が印刷され...
-
線を組み合わせた図形の塗りつ...
-
グーグルスプレッドシートの図...
-
エクセル ユーザーフォームに...
-
AutoCADで渦巻きを描く方法
-
Illustratorでくくり括弧記号を...
-
Illustratorで白い部分のみを透...
-
Excel 条件を入れると図形を表...
-
図形でしずく型を作りたい
-
Jw-cad の図形リストが表示でき...
-
WORDで図に網掛けする方法は?
-
図形とビットマップの違いは?
-
Excelのマクロを使用してオート...
-
Excel 図形へのハイパーリンク
-
おしえてgooに図形の問題を投稿...
-
fractileって?日本語では何で...
-
G.CREWの使い方
-
Excel のバージョンによって、...
-
VBAのロジックでEXCEL上にShape...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
PowerPointで台形を描く方法
-
pdf上に描画した図形が印刷され...
-
線を組み合わせた図形の塗りつ...
-
グーグルスプレッドシートの図...
-
Excel のバージョンによって、...
-
AutoCADで渦巻きを描く方法
-
図形でしずく型を作りたい
-
Illustratorで白い部分のみを透...
-
Illustratorでくくり括弧記号を...
-
エクセルで図形を連動させたい
-
WORDで図に網掛けする方法は?
-
エクセル ユーザーフォームに...
-
ワードかエクセルの図形を使っ...
-
クリックしたらパネルがめくれ...
-
G.CREWの使い方
-
Excel2003図-扇形を書く方法は...
-
Excel 図形へのハイパーリンク
-
エクセルVBAで図形のテキストを...
-
Canvaの図形は、縦横比をキープ...
-
Jw-cad の図形リストが表示でき...
おすすめ情報