同様の問題と思われる前の質問が未解決のままです。 https://teratail.com/questions/142599 解決してないのであればそちらで対応してください。ついた回答で解決できてない場合、質問は編集できますので適宜追記してください。こちらの質問は削除依頼を出すと良いです
エクセルのグラフをパワーポイントに「元の書式を保持」したままの貼り付けがしたいです。
しかし実行すると図として貼り付けされてしまいます。
「元の書式を保持」したままの貼り付け方法を教えてほしいです。
VBA
1#Sub PowerPointを立ち上げる() 2 Dim ppApp As New PowerPoint.Application 3 Dim ppPt As Presentation 4 Dim ppSlide As Slide 5 Dim ppShape As PowerPoint.Shape 6 Dim ws As Worksheet 7 Dim test_st As String 8 Dim i As Long 9 Dim x As Long 10 Dim ppPrs As Presentation 11 Set ppPrs = ppApp.Presentations.Open(ThisWorkbook.Path & "\グラフ@.pptx") 12 Set ws = ThisWorkbook.Worksheets("A_01") 13 14 'グラフの貼り付け 15 'CPU 16 For i = 1 To 18 17 18 ws.ChartObjects("グラフ " & i).Chart.Copy 'グラフをコピー 19 ppPrs.Slides(i).Shapes.PasteSpecial DataType:=ppPasteEnhancedMetafile, Link:=msoFalse 'パワーポイントのコマンドで貼り付け 20 If ppApp.ActiveWindow.Selection.Type = ppSelectionNone Or ppApp.ActiveWindow.Selection.Type = ppSelectionSlides Then 21 Exit Sub 22 End If 23 24 For Each ppShape In ppApp.ActiveWindow.Selection.ShapeRange 25 ppShape.LockAspectRatio = msoFalse 26 ppShape.Left = Application.CentimetersToPoints(0.8) 27 ppShape.Top = Application.CentimetersToPoints(3.7) 28 ppShape.Width = Application.CentimetersToPoints(11.875) 29 ppShape.Height = Application.CentimetersToPoints(4.6) 30 Next ppShape 31 32 Next i 33End Sub 34
あなたの回答
tips
プレビュー