Excelで画像をクリックすると拡大する方法は？

以下のスクリーンショットに示すように、画像のリストを列に挿入し、画像のサイズをセルのサイズと一致させたとします。 挿入した画像は小さく見えるので、目的によっては拡大する必要があるかもしれません。 この記事では、Excelで画像をクリックすると拡大し、XNUMX回目のクリックで元のサイズに戻す方法を説明します。

VBAコードでクリックすると画像が拡大します

VBAコードでクリックすると画像が拡大します

次のVBAコードは、Excelで画像をクリックしたときに画像を拡大するのに役立ちます。 次のようにしてください。

1.拡大する必要のある画像をクリックするだけで右クリックし、クリックします マクロの割り当て コンテキストメニューから。 スクリーンショットを参照してください：

2。 の中に マクロの割り当て ダイアログボックスをクリックしてください 新作

3.ポップアップで アプリケーション向け Microsoft Visual Basic ウィンドウの間に、以下のVBAコードをコピーして貼り付けてください サブ • End Subの コード。 スクリーンショットを参照してください：

VBAコード：Excelで画像をクリックして拡大します

Dim shp As Shape
    Dim big As Single, small As Single
    Dim shpDouH As Double, shpDouOriH As Double
    big = 3   
    small = 1 
    On Error Resume Next
    Set shp = ActiveSheet.Shapes(Application.Caller)
    With shp
        shpDouH = .Height
        .ScaleHeight 1, msoTrue, msoScaleFromTopLeft
        shpDouOriH = .Height
    
        If Round(shpDouH / shpDouOriH, 2) = big Then
            .ScaleHeight small, msoTrue, msoScaleFromTopLeft
            .ScaleWidth small, msoTrue, msoScaleFromTopLeft
            .ZOrder msoSendToBack
        Else
            .ScaleHeight big, msoTrue, msoScaleFromTopLeft
            .ScaleWidth big, msoTrue, msoScaleFromTopLeft
            .ZOrder msoBringToFront
        End If
    End With

Note：コードでは、コードbig = 3で画像の大きなサイズを割り当てることができます。

4。 次に、 他の + Q キーを同時に閉じて アプリケーション向け Microsoft Visual Basic 窓。

これ以降、画像をクリックすると、指定したサイズに拡大され、もう一度クリックすると、下のスクリーンショットに示すように元のサイズに戻ります。

関連記事:

• 写真/画像をExcelのセルまたはセル内にロックする方法は？
• Excelのセル値に基づいて画像または画像をセルに動的に挿入するにはどうすればよいですか？