回答編集履歴

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

2019/03/12 12:35

投稿

スコア94

answer CHANGED Viewed

@@ -6,10 +6,13 @@
 Private Sub CommandButton1_Click()
+  Dim objB As CommandBars
+  Set objB = Application.CommandBars
-    CommandButton1.Picture = Application.CommandBars.GetImageMso("Cut", 16, 16)
+  CommandButton1.Picture = objB.GetImageMso("Cut", 16, 16)
-    CommandButton2.Picture = Application.CommandBars.GetImageMso("ChartInsert", 16, 16)
+  CommandButton2.Picture = objB.GetImageMso("ChartInsert", 16, 16)
-    Image1.Picture = Application.CommandBars.GetImageMso("Copy", 16, 16)
+  Image1.Picture = objB.GetImageMso("Copy", 16, 16)
-    Label1.Picture = Application.CommandBars.GetImageMso("FilePrint", 16, 16)
+  Label1.Picture = objB.GetImageMso("FilePrint", 16, 16)
 End Sub