VBAのコントロールボタンの固定について。

Question

Excelに画像URLを記載し、
マクロを使うと画像が取得できる
VBAを組んだファルがあるのですが、

マクロを実行すると、ボタンまで
画像と同じサイズになってしまいます。

ボタンだけ作成した時の大きさに
固定することはできないのでしょうか？

すみません。スマホから投稿したので、編集ボタンが見つからず困っていました。
PCなら編集が可能なのですね。

以下、現在設定しているVBAです。私が作成したものではなく、
知人が作成したものをコピーしただけなので、よくわからず。
連絡が取れないので、こちらで質問させていただきました。

よろしくお願いいたします。

Option Explicit

Sub ImageCapture()
 Dim i As Long, imax As Long
 Dim sp As Shape
 Dim p
 imax = Cells(Rows.Count, 28).End(xlUp).Row
 For i = 3 To imax
 Cells(i, 3).Select
 p = "" & Cells(i, 28).Value & ""
 
 On Error GoTo ErrLabel
 
 ActiveSheet.Pictures.Insert(p).Select
 Next
 For Each sp In ActiveSheet.Shapes
 sp.Width = 90 '[幅を指定する]
 sp.Height = 90 '[高さを指定する]

ErrLabel:
 Resume Next

Next
End Sub

Comments

[ttyp03]

そのマクロを提示してくれないと！

[m.ts10806]

https://teratail.com/questions/180372
のコメントで書いたとおり、質問は編集できますので。
多重投稿分の質問は削除依頼を出してください。

また、実際に実行されているコードがないと再現確認もできません。
文章だけではどういう状況なのか他人には分かりません。
コードの提示、画面キャプチャの提示　などして、自分の現在の状況とやりたいことをうまいこと伝わる工夫をお願いします。

[azuapricot]

前２つの質問邪魔なので削除依頼出して消すようにお願いします。
基本質問するときは、自分のコードをマークダウン （<code>っていうボタンをおすと出てくるやつ）を使って提示するものですよ。
回答者はエスパーではありません。

[BeatStar]

まずはコードを提示してください。

[jawa]

＞マクロを使うと画像が取得できるVBAを組んだファルがある
そのVBAのコードは見ることができますか？

画像を取得したときにボタンサイズが変更されるのなら、そのようなコードが記載されているものと推測されます。

まずはコードを確認しないと、原因も、対応策もアドバイスできません。

[退会済みユーザー]

スマホから投稿したのですが、編集ボタンが見つかりませんでした。
PCからならできるみたいで、追記しました。
よろしくお願いいたします。

Answer 1

Dim sp As Shape を
Dim sp As Picture に修正。

For Each sp In ActiveSheet.Shapes を、
For Each sp In ActiveSheet.Pictures に修正。

Shapes Pictures の意味を調べしましょう。

追記

ループを追加とサイズ変更の２つに分けずに、追加したらすぐサイズ変更する方がシンプルになりますね。

Sub ImageCapture()
    Dim i As Long, imax As Long
    Dim p As String

    imax = Cells(Rows.Count, 28).End(xlUp).Row
    For i = 3 To imax
        Cells(i, 3).Select
        p = Cells(i, 28).Value

        On Error Resume Next
        With ActiveSheet.Pictures.Insert(p)
            .Width = 90 '[幅を指定する]
            .Height = 90 '[高さを指定する]
        End With
        On Error Goto 0
    Next

End Sub