{"id":312,"date":"2016-10-25T00:40:21","date_gmt":"2016-10-24T15:40:21","guid":{"rendered":"https:\/\/cg-method.com\/entry\/2016\/10\/25\/004021"},"modified":"2022-12-23T17:07:25","modified_gmt":"2022-12-23T08:07:25","slug":"powerpoint-combine-multiple-data","status":"publish","type":"post","link":"https:\/\/cg-method.com\/powerpoint-combine-multiple-data\/","title":{"rendered":"PowerPoint\u2502\u8907\u6570\u306e.pptx\u3092\u4e00\u3064\u306e\u30d5\u30a1\u30a4\u30eb\u306b\u7d50\u5408\u3059\u308b\u65b9\u6cd5"},"content":{"rendered":"\n
\u8907\u6570\u306e\u30d1\u30ef\u30dd\u306e\u30c7\u30fc\u30bf\u3092\u307e\u3068\u3081\u305f\u3044\u6642\u306f\u306a\u3044\u3067\u3057\u3087\u3046\u304b\uff1f<\/p>\n\n\n\n
\u672c\u8a18\u4e8b\u3067\u306f\u8907\u6570\u306e\u30c7\u30fc\u30bf\uff08.pptx\uff09\u3092\u4e00\u3064\u306b\u307e\u3068\u3081\u308b\u65b9\u6cd5\u3092\u7d39\u4ecb\u3057\u307e\u3059\u3002<\/p>\n\n\n\n
\u4e00\u679a\u306b\u307e\u3068\u3081\u3066\u63d0\u51fa\u3059\u308b\u6642\u3084\u307e\u3068\u3081\u3066\u5370\u5237\u3059\u308b\u6642\u306b\u4f7f\u3048\u308b\u6280\u3067\u3059\uff01<\/p>\n\n\n\n
\u6a19\u6e96\u6a5f\u80fd\u306e\u307f\u3067\u3067\u304d\u307e\u3059\u3002<\/p>\n\n\n\n
\u305f\u3060\u3001\u3053\u306e\u4f5c\u696d\u306f\u30de\u30af\u30ed\u4f7f\u3046\u306e\u304c\u4e00\u756a\u30e9\u30af<\/span><\/strong>\u3067\u3059\u3002<\/p>\n\n\n\n \u7d9a\u3044\u3066\u30de\u30af\u30ed\u3092\u4f7f\u3046\u65b9\u6cd5\u3067\u3059\u3002<\/p>\n\n\n\n \u30c6\u30f3\u30d7\u30ec\u30fc\u30c8\u306e\u30c7\u30b6\u30a4\u30f3\u304c1\u7a2e\u985e\u306e\u5834\u5408\u306e\u30c7\u30fc\u30bf\u3092\u7d50\u5408\u3059\u308b\u30de\u30af\u30ed\u3067\u3059\u3002<\/p>\n\n\n\n \u30c6\u30f3\u30d7\u30ec\u30fc\u30c8\u306e\u30c7\u30b6\u30a4\u30f3\u304c\u8907\u6570\u7a2e\u985e\u306e\u5834\u5408\u306e\u30c7\u30fc\u30bf\u3092\u7d71\u5408\u3059\u308b\u30de\u30af\u30ed\u3067\u3059\u3002<\/p>\n\n\n\nPowerPoint\u3067\u30de\u30af\u30ed\u3067\u8907\u6570\u306e.pptx\u3092\u4e00\u3064\u306b\u307e\u3068\u3081\u308b\u65b9\u6cd5<\/h2>\n\n\n\n
\n
\u30c6\u30f3\u30d7\u30ec\u30fc\u30c8\u306e\u30c7\u30b6\u30a4\u30f3\u304c1\u7a2e\u985e\u306e\u5834\u5408\u306e\u30c7\u30fc\u30bf\u3092\u7d50\u5408\u3059\u308b\u30de\u30af\u30ed<\/h3>\n\n\n\n
\u30b3\u30fc\u30c9<\/span><\/i><\/i><\/span><\/summary>
Sub Pre_InsertFromFile1()\n\u3000'\u5404\u30d5\u30a1\u30a4\u30eb\u306e\u30c7\u30b6\u30a4\u30f3\u30c6\u30f3\u30d7\u30ec\u30fc\u30c8\u304c1\u7a2e\u985e\u305a\u3064\u306e\u5834\u5408\n\u3000Dim newPre As Presentation '\u65b0\u898f\u30d7\u30ec\u30bc\u30f3\u30c6\u30fc\u30b7\u30e7\u30f3\n\u3000Dim myPre As Presentation '\u65e2\u5b58\u30d7\u30ec\u30bc\u30f3\u30c6\u30fc\u30b7\u30e7\u30f3\n\u3000Dim i As Long, j As Long\n\u3000Dim LstSld As Long, CntSld As Long\n\u3000Dim ArrSld() As Long\n\u3000Dim fd As FileDialog '\u30d5\u30a1\u30a4\u30eb\u30c0\u30a4\u30a2\u30ed\u30b0\n\u3000'\u4efb\u610f\u306e*.ppt\u30d5\u30a1\u30a4\u30eb\u547c\u3073\u51fa\u3057\n\u3000Set fd = Application.FileDialog(msoFileDialogOpen)\n\u3000With fd\n\u3000\u3000.InitialFileName = "C:" '"E:\\Office\\PowerPoint\\VBA\u30b3\u30fc\u30c9"\n\u3000\u3000.Filters.Add "PowerPoint File", "*.ppt;*.pptx;*.pptm;*.pps", 1\n\u3000\u3000If .Show <> -1 Then Exit Sub\n\u3000End With\n\u3000'\u65b0\u898f\u30d7\u30ec\u30bc\u30f3\u30c6\u30fc\u30b7\u30e7\u30f3\n\u3000Set newPre = Presentations.Add\n\u3000For i = 1 To fd.SelectedItems.Count\n\u3000\u3000Set myPre = Presentations.Open(fd.SelectedItems.Item(i), _\n\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000msoTrue, , msoFalse)\n\u3000\u3000With newPre.Slides\n\u3000\u3000\u3000LstSld = .Count '\u65b0\u898f\u30d7\u30ec\u30bc\u30f3\u306e\u6700\u5f8c\u306e\u30b9\u30e9\u30a4\u30c9\u756a\u53f7\n\u3000\u3000\u3000CntSld = myPre.Slides.Count\n\u3000\u3000\u3000'\u65e2\u5b58\u30d7\u30ec\u30bc\u30f3\u304b\u3089\u65b0\u898f\u30d7\u30ec\u30bc\u30f3\u306b\u633f\u5165\n\u3000\u3000\u3000.InsertFromFile myPre.FullName, LstSld, 1, CntSld\n\u3000\u3000\u3000ReDim ArrSld(1 To CntSld)\n\u3000\u3000\u3000For j = 1 To CntSld\n\u3000\u3000\u3000\u3000ArrSld(j) = LstSld + j\n\u3000\u3000\u3000Next j\n\u3000\u3000\u3000'\u65e2\u5b58\u30d7\u30ec\u30bc\u30f3\u30b9\u30e9\u30a4\u30c91\u306e\u30c7\u30b6\u30a4\u30f3\u3092\u307e\u3068\u3081\u3066\u8cbc\u308a\u4ed8\u3051\n\u3000\u3000\u3000.Range(ArrSld).Design = myPre.Slides(1).Design\n\u3000\u3000End With\n\u3000\u3000myPre.Close\n\u3000Next i\nEnd Sub<\/code><\/pre><\/div>\n<\/div><\/details>\n<\/div>\n\n\n\n
\u30c6\u30f3\u30d7\u30ec\u30fc\u30c8\u306e\u30c7\u30b6\u30a4\u30f3\u304c\u8907\u6570\u7a2e\u985e\u306e\u5834\u5408\u306e\u30c7\u30fc\u30bf\u3092\u7d71\u5408\u3059\u308b\u30de\u30af\u30ed<\/h3>\n\n\n\n
\u30b3\u30fc\u30c9<\/span><\/i><\/i><\/span><\/summary>
Sub Pre_InsertFromFile2()\n\u3000'\u5404\u30d5\u30a1\u30a4\u30eb\u306e\u30c7\u30b6\u30a4\u30f3\u30c6\u30f3\u30d7\u30ec\u30fc\u30c8\u304c\u30b9\u30e9\u30a4\u30c9\u3054\u3068\u306b\u3070\u3089\u3070\u3089\u306a\u5834\u5408\n\u3000Dim newPre As Presentation '\u65b0\u898f\u30d7\u30ec\u30bc\u30f3\u30c6\u30fc\u30b7\u30e7\u30f3\n\u3000Dim myPre As Presentation '\u65e2\u5b58\u30d7\u30ec\u30bc\u30f3\u30c6\u30fc\u30b7\u30e7\u30f3\n\u3000Dim myDes As Design '\u30c7\u30b6\u30a4\u30f3\n\u3000Dim i As Long\n\u3000Dim j As Long\n\u3000Dim fd As FileDialog '\u30d5\u30a1\u30a4\u30eb\u30c0\u30a4\u30a2\u30ed\u30b0\n\u3000'\u4efb\u610f\u306e*.ppt\u30d5\u30a1\u30a4\u30eb\u547c\u3073\u51fa\u3057\n\u3000Set fd = Application.FileDialog(msoFileDialogOpen)\n\u3000With fd\n\u3000\u3000.InitialFileName = "C:" '"E:\\Office\\PowerPoint\\VBA\u30b3\u30fc\u30c9"\n\u3000\u3000.Filters.Add "PowerPoint File", "*.ppt;*.pptx;*.pptm;*.pps", 1\n\u3000\u3000If .Show <> -1 Then Exit Sub\n\u3000End With\n\u3000'\u65b0\u898f\u30d7\u30ec\u30bc\u30f3\u30c6\u30fc\u30b7\u30e7\u30f3\n\u3000Set newPre = Presentations.Add\n\u3000For i = 1 To fd.SelectedItems.Count\n\u3000\u3000Set myPre = Presentations.Open(fd.SelectedItems.Item(i), _\n\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000msoTrue, , msoFalse)\n\u3000\u3000With myPre.Slides\n\u3000\u3000\u3000For j = 1 To .Count\n\u3000\u3000\u3000\u3000With .Item(j)\n\u3000\u3000\u3000\u3000\u3000Set myDes = .Design '\u30c7\u30b6\u30a4\u30f3\u30b3\u30d4\u30fc\n\u3000\u3000\u3000\u3000End With\n\u3000\u3000\u3000\u3000'\u65e2\u5b58\u30d7\u30ec\u30bc\u30f3\u304b\u3089\u65b0\u898f\u30d7\u30ec\u30bc\u30f3\u30c6\u30fc\u30b7\u30e7\u30f3\u306b1\u679a1\u679a\u633f\u5165\n\u3000\u3000\u3000\u3000With newPre.Slides\n\u3000\u3000\u3000\u3000\u3000.InsertFromFile myPre.FullName, .Count, j, j\n\u3000\u3000\u3000\u3000\u3000With .Item(.Count)\n\u3000\u3000\u3000\u3000\u3000\u3000.Design = myDes '1\u679a1\u679a\u30c7\u30b6\u30a4\u30f3\u8cbc\u308a\u4ed8\u3051\n\u3000\u3000\u3000\u3000\u3000End With\n\u3000\u3000\u3000\u3000End With\n\u3000\u3000\u3000Next j\n\u3000\u3000End With\n\u3000\u3000myPre.Close\n\u3000Next i\nEnd Sub<\/code><\/pre><\/div>\n<\/div><\/details>\n<\/div>\n\n\n