回答編集履歴

誤字修正

2016/10/24 00:35

投稿

スコア3020

answer CHANGED Viewed

@@ -17,13 +17,13 @@
     Set ppShp = ppSld.Shapes(1)
     'テキストの操作
-    shp.TextFrame.TextRange.Text = "abcdefghij"
+    ppShp.TextFrame.TextRange.Text = "abcdefghij"
-    shp.TextFrame.TextRange.Characters(2, 3).Font.Size = 18
+    ppShp.TextFrame.TextRange.Characters(2, 3).Font.Size = 18
     '余白の設定
-    shp.TextFrame.MarginLeft = 0.5
+    ppShp.TextFrame.MarginLeft = 0.5
-    shp.TextFrame.MarginRight = 0.5
+    ppShp.TextFrame.MarginRight = 0.5
-    shp.TextFrame.MarginTop = 0.5
+    ppShp.TextFrame.MarginTop = 0.5
-    shp.TextFrame.MarginBottom  = 0.5
+    ppShp.TextFrame.MarginBottom  = 0.5
     'ppApp.Quit
     'Set ppApp = Nothing