質問編集履歴
1
使用しているexcelのソースコードを記入しました。
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -22,4 +22,20 @@
|
|
|
22
22
|
エクセルのVBAで1行ずつの値を貼り付けることはできましたが、
|
|
23
23
|
書式が反映されず、パワポのVBAを利用する必要がある、ということまではたどり着きました。
|
|
24
24
|
### 補足情報（FW/ツールのバージョンなど）
|
|
25
|
-
現在PPT2016を使用しています。
|
|
25
|
+
現在PPT2016を使用しています。
|
|
26
|
+
|
|
27
|
+
現在excelで使用しているソースコードです。
|
|
28
|
+
Sub test()
|
|
29
|
+
Const ppLayoutBlank = 12
|
|
30
|
+
Dim i As Long
|
|
31
|
+
With CreateObject("PowerPoint.Application")
|
|
32
|
+
With .Presentations.Add
|
|
33
|
+
For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row
|
|
34
|
+
Cells(i, "A").Resize(1, 4).Copy
|
|
35
|
+
With .Slides.Add(i - 1, ppLayoutBlank)
|
|
36
|
+
.Shapes.PasteSpecial
|
|
37
|
+
End With
|
|
38
|
+
Next i
|
|
39
|
+
End With
|
|
40
|
+
End With
|
|
41
|
+
End Sub
|