エクセル　QRコードのサイズが変ってしまった時の対処法

QRコードのサイズが変わってしまう

ファイルを開くと、QRコードのサイズが変ってしまっていることが

稀にあります。

↑こう作ったのに

↑こうなってしまう。。

しかも、なぜかQRコードのプロパティも開けなくなる。

回避策

回避策でファイルを開いたときに、QRコードのサイズを都度設定するように

VBAで設定しました。

コードは下記、エクセルを開いたときにQRコードサイズが2.4cm□になるよう

にしてあります、（２）の部分でサイズ変更できるので、試してみてください。

Private Sub Workbook_Open()

Worksheets("シート名をいれる").Activate

Dim oo As OLEObject
For Each oo In ActiveSheet.OLEObjects 'oleオブジェクトを順に
If TypeName(oo.Object) = "BarCodeCtrl" Then 'バーコード?
If oo.Object.Style = 11 Then 'QRコード?
oo.Width = Application.CentimetersToPoints(2)  '2.4cm
oo.Height = Application.CentimetersToPoints(2)  '2.4cm
End If
End If
Next

End Sub

一応これでQRコードのサイズが変ってしまうことは起きていません。

原因はわかりませんが、これで運用できているので、まあ良しとしています。