VBA 205号室:Excelシート内のQRコードのサイズをリセット

Excelシート内のQRコードをリサイズします

Kappo

Excel上にあるQRコードが開いたときに作った時とサイズが変わっていてあああ～～ってないませんか？
　●一つ一つオブジェクトのプロパティで縦／横のサイズを入力して直す
　　↓
　●超～～面倒ですよね！！　一つだけなら・・・何とか我慢できる？
この部屋ではあらかじめ名前を決めたQRコードを配置しておいてブックが開いたときに、ブックが開いた時にリサイズする方法を載せてます！
便利だから使ってみてね！
また、一番したの方にコメント欄があるからよかったら質問・感想などメッセージ入れてください

QRコードをリサイズするプログラム

下のプログラムをQRコードがあるシートに追加するでシート内全てのQRコードのサイズを戻すことが出来る

※「VBA 203号室:ExcelシートにQRを追加」で名前をつけて作成したQRコードを対象に動きます
※サンプルではQRコードのサイズを50×50にしています

▼プログラム▼

Optin Explicit

Private Sub Worksheet_Activate()

    Dim qrObj As OLEObject

    'シート内のOLEオブジェクトを対象でループ
    For Each qrObj In Worksheets("シート名").OLEObjects

       'オブジェクト名に"QRコード"が含まれていたらリサイズ
       If InStr(qrObj.Name, "QRコード") <> 0 Then
           qrObj.Height = 50
           qrObj.Width = 50
       End If

    Next

End Sub