回答編集履歴

コードが見にくかったので見やすくした

2019/03/12 12:35

投稿

スコア94

test CHANGED Viewed

@@ -14,13 +14,19 @@
-    CommandButton1.Picture = Application.CommandBars.GetImageMso("Cut", 16, 16)
+  Dim objB As CommandBars
-    CommandButton2.Picture = Application.CommandBars.GetImageMso("ChartInsert", 16, 16)
+  Set objB = Application.CommandBars
-    Image1.Picture = Application.CommandBars.GetImageMso("Copy", 16, 16)
+  CommandButton1.Picture = objB.GetImageMso("Cut", 16, 16)
+  CommandButton2.Picture = objB.GetImageMso("ChartInsert", 16, 16)
+  Image1.Picture = objB.GetImageMso("Copy", 16, 16)
-    Label1.Picture = Application.CommandBars.GetImageMso("FilePrint", 16, 16)
+  Label1.Picture = objB.GetImageMso("FilePrint", 16, 16)