Excelでワンクリックで画像を拡大または縮小するにはどうすればよいですか？

シートにサイズの異なる複数の画像があるとします。これらの写真をワンクリックでワンサイズに拡大または縮小する方法はありますか？これを解決するための組み込み機能はありませんが、この記事では、ワンクリックでシート内のすべての画像を拡大または縮小するVBAコードを紹介します。

VBAによるワンクリックで画像を拡大および縮小

VBAによるワンクリックで画像を拡大および縮小

ワンクリックで画像を拡大または縮小するには、以下の手順を実行します。

1.画像のサイズを変更するシートタブを右クリックして、 コードを表示 コンテキストメニューから。
ドキュメント拡大画像ワンクリック1

2.ポッピングで アプリケーション用 Microsoft Visual Basicsウィンドウで、以下のコードを空白のスクリプトに貼り付けます。

VBA：ワンクリックで画像を拡大および縮小

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'UpdatebyEntendoffice20161111
    Application.ScreenUpdating = False
    Dim xRg As Range, sPic As Shape
      For Each sPic In ActiveSheet.Shapes
        If Target.Column > 1 Then
            Set xRg = Target.Offset(, -1)
            With sPic
              If TypeName(.OLEFormat.Object) = "Picture" Then
                  If .TopLeftCell.Address = xRg.Address Then
                      .Height = 350
                      .Width = 250
                  End If
              End If
            End With
        ElseIf Target.Column = 1 Then
            With sPic
                If TypeName(.OLEFormat.Object) = "Picture" Then
                   .Height = 60
                   .Width = 60
                End If
            End With
        End If
      Next sPic
    Application.ScreenUpdating = True
End Sub

3.コードを保存して、ウィンドウを閉じます。また、列Aのいずれかのセルをクリックすると、すべての画像が縮小されます。スクリーンショットを参照してください：
ドキュメント拡大画像ワンクリック3

4.そして、画像の右上にあるセルをクリックすると、相対的な画像が拡大されます。スクリーンショットを参照してください：
ドキュメント拡大画像ワンクリック4

ヒント。シートに透かしをすばやく挿入したい場合は、Kutools forExcelを使用してみてください。 透かしを挿入 次のスクリーンショットに示すように。 30日で無制限にフル機能、今すぐダウンロードして無料トライアルをお試しください。

最高のオフィス生産性向上ツール

🤖	Kutools AI アシスタント: 以下に基づいてデータ分析に革命をもたらします。インテリジェントな実行 \| コードを生成 \| カスタム数式の作成 \| データを分析してグラフを生成する \| Kutools関数を呼び出す...
	人気の機能: 重複を検索、強調表示、または識別する \| 空白行を削除する \| データを失わずに列またはセルを結合する \| 数式なしのラウンド ...
	スーパールックアップ: 複数の基準の VLookup \| 複数の値の VLookup \| 複数のシートにわたる VLookup \| ファジールックアップ ....
	詳細ドロップダウンリスト: ドロップダウンリストを素早く作成する \| 依存関係のドロップダウンリスト \| 複数選択のドロップダウンリスト ....
	列マネージャー: 特定の数の列を追加する \| 列の移動 \| Toggle 非表示列の表示ステータス \| 範囲と列の比較 ...
	注目の機能: グリッドフォーカス \| デザインビュー \| ビッグフォーミュラバー \| ワークブックとシートマネージャー \| リソースライブラリ (自動テキスト) \| 日付ピッカー \| ワークシートを組み合わせる \| セルの暗号化/復号化 \| リストごとにメールを送信する \| スーパーフィルター \| 特殊フィルター (太字/斜体/取り消し線をフィルター...) ...
	上位 15 のツールセット: 12 テキストツール (テキストを追加, 文字を削除する、...） \| 50+ チャート種類 (ガントチャート、...） \| 40+ 実用的式 (誕生日に基づいて年齢を計算する、...） \| 19 挿入ツール (QRコードを挿入, パスから画像を挿入、...） \| 12 変換ツール (数字から言葉へ, 通貨の換算、...） \| 7 マージ＆スプリットツール (高度な結合行, 分割セル、...） \| ... もっと

Kutools for Excel で Excel スキルを強化し、これまでにない効率を体験してください。 Kutools for Excelは、生産性を向上させ、時間を節約するための300以上の高度な機能を提供します。最も必要な機能を入手するにはここをクリックしてください...

続きを読みます... 無料ダウンロード...

Officeタブは、タブ付きのインターフェイスをOfficeにもたらし、作業をはるかに簡単にします

Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
生産性を 50% 向上させ、毎日何百回もマウスクリックを減らすことができます!

続きを読みます... 無料ダウンロード...

Comments (5)

No ratings yet. Be the first to rate!

Milan

about 1 year ago

#39798