A 回答 (2件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
> Fo To Next で、A1:A7の部分を変えてやれば良いと思いますが
そこだけでは足りません。
If sp.TopLeftCell.Address = "$A$1" Then
も$A$9、$A$17・・・・と列アドレスを8ずつ増やしながら回す必要があるでしょう。
ご自身でやってみて、うまくいかなかったらそのコードをここに書いて見せて下されば、それに対するご回答が付くかと思います。
No.1
- 回答日時:
こんにちは
やりたいことしか書いてないので、何を質問したいのか不明です。
まるっとコードが欲しいのかも知れませんが、その割には「A1」というセル位置以外は抽象的なので具体的なことがわかりません。
不明点は勝手に解釈して、こんな感じなのでしょうか?
※ 画像は回転していないと仮定しています。
(多分、お好みには合わないかもなので、後はお好きにいじってください)
Sub Q13768724()
Dim sp, r, d
Set r = Range("A1:A7")
d = Application.Min(r.Height, r.Width) / 10
If d = 0 Then Exit Sub
For Each sp In ActiveSheet.Pictures
If sp.TopLeftCell.Address = "$A$1" Then
sp.Top = d / 2
sp.Left = d / 2
sp.ShapeRange.LockAspectRatio = False
sp.Width = r.Width - d
sp.Height = r.Height - d
End If
Next sp
End Sub
こんにちは
思う通りになりました。ありがとうございます。
実は、このような画像が、一行の空白行を挟んで、A9、A17・・・と続いています。
Fo To Next で、A1:A7の部分を変えてやれば良いと思いますが、よろしければ教えていただけないでしょうか。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excel VBAについて【図形を組み合わせて作成した、料金別納表示の削除の仕方】 5 2023/11/16 01:27
- Excel(エクセル) エクセル表作成について 5 2023/03/12 13:25
- Excel(エクセル) エクセルのマクロについて教えてください。 3 2023/02/07 14:47
- Excel(エクセル) エクセル シート内のボックスを縦並びから横並びに 7 2023/04/05 04:28
- Visual Basic(VBA) VBAマクロ 決まっていない行を選択して別シートへ貼付け 4 2023/02/16 16:08
- Excel(エクセル) セル内の一部に別セルを差し込む 3 2022/09/18 04:39
- Excel(エクセル) エクセルで日付が入っているセルを一定の法則に従って違うセルに表示したい 2 2022/04/04 17:16
- Visual Basic(VBA) Excelで画像URLを1つずつセルに振り分けたい 2 2024/02/24 01:59
- Excel(エクセル) If関数に関する質問です。(再掲) 3 2022/10/01 20:51
- Excel(エクセル) エクセル 小数点以下切り捨て 教えてください 1 2022/08/03 19:14
このQ&Aを見た人はこんなQ&Aも見ています
-
「環境が人を育てる」って本当?環境によって人格や生き方は本当に変わるのか
環境が人生に与える影響は実際どれほどのものなのか、専門家の田宮由美さんに伺った。
-
エクセルVBAにて =A1=B1とすれば A1とB1のセル内容が一緒だった場合 TRUE 違っていれ
Visual Basic(VBA)
-
エクセル関数に詳しい方教えてください
Excel(エクセル)
-
Excelの入力方法について
Excel(エクセル)
-
-
4
Excel VBA 定義されたプロージャ名、関数名の取得
Visual Basic(VBA)
-
5
エクセルの神よ、ご回答を! エクセルのコメント欄について質問2点。
Excel(エクセル)
-
6
[オートフィルタ]の適用範囲の確認は可能か?
Excel(エクセル)
-
7
エクセルでチェックボックスを一列にたくさんつくり、各行にリンク先のセルを設定する場合、どのようにした
Excel(エクセル)
-
8
エクセルで例えば、関数を使ってA1 に㈱今野や国際興業バス㈱とあった場合B1に㈱と一括で表示(置換)
その他(Microsoft Office)
-
9
Excelで、10000,20000,30000と表示されているのですが、時々10000,20000
Excel(エクセル)
-
10
エクセルの表示について
Excel(エクセル)
-
11
UNIQUE関数が使えないバージョンで重複削除したい。
Excel(エクセル)
-
12
Excel vbaのテキストボックスの扱い
Excel(エクセル)
-
13
エクセルで上位バイトのセルと下位バイトのセルを1つのセルにして16進数を作る方法
Excel(エクセル)
-
14
Excelで50個のセルに同じ文字を簡単に入力する方法はありますか?
Excel(エクセル)
-
15
Excelはなんで先頭の0を消すんですか?しかもCSVとかもなんでそもそも勝手に元のデータ変えるのに
Excel(エクセル)
-
16
エクセルで日付を数字+アルファベットと比較したい
Excel(エクセル)
-
17
再質問です。マクロの修正箇所を教えてください。
Excel(エクセル)
-
18
一つのセルに(例えばA1)入力された3桁・4桁の数字を並べ替えて同一行のセルに表示させる。
Excel(エクセル)
-
19
VBAなくなるの?
Visual Basic(VBA)
-
20
CELL関数のヘルプ文の意味?
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Snipping Toolのキャプチャ画面...
-
Photoshopで拡大縮小時にアンチ...
-
拡大できるPCの動画プレーヤー...
-
画像の拡大率を固定したまま次...
-
ドット絵をデスクトップ上でビ...
-
画像ファイルをPDF化する際にぼ...
-
画質を落とさないバナーの作り方!
-
動画の一部を 画像として保存...
-
画像を劣化させずに拡大・縮小...
-
細長い動画ファイルの中心部を...
-
dreamweaverにて、ブラウザによ...
-
『aviutl』文字を中心から拡大...
-
ズバリ巨大プリントでEXCELデー...
-
任意の部分が拡大できる動画再...
-
photoshopのラスタライズって何...
-
拡大コピーのパーセントについて
-
Illustratorでクリッピングマス...
-
MacBook pro 突然画面拡大され...
-
Gifの余白をトリミングして、GI...
-
イラストレーターに取り込んだ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
画像の拡大率を固定したまま次...
-
Snipping Toolのキャプチャ画面...
-
Photoshopで拡大縮小時にアンチ...
-
細長い動画ファイルの中心部を...
-
MACのWordにて写真の拡大縮小が...
-
プロフィール画像が大きく拡大...
-
拡大できるPCの動画プレーヤー...
-
Illustratorでクリッピングマス...
-
『aviutl』文字を中心から拡大...
-
GIMPとInkscapeについて
-
Adobe Premiere JPEG画像取り...
-
画像を劣化させずに拡大・縮小...
-
画像ファイルをPDF化する際にぼ...
-
photoshop パターンのみ拡大縮...
-
一太郎2021で画像サイズをmmで...
-
画質を落とさないバナーの作り方!
-
拡大コピーのパーセントについて
-
ドット絵を
-
拡大するとぼやけてしまう画像...
-
ドット絵をデスクトップ上でビ...
おすすめ情報
列をB列にし、タイトルを付けるため行を2行挿入してもA1に貼りつきます。Fo To Next も上手くいきません。
複数の行にまたがり拡大することができました。
ありがとうございました。