![](/img/trans.png)
[英]Exporting data from Excel to an existing PowerPoint slide using VBA
[英]Copy Excel data to exact PowerPoint slide cell using VBA
因此,我有一個工作的宏,它將Excel行復制為圖片,並將每張圖片粘貼到新的PowerPoint幻燈片中。
因此,我現在的工作是從確切的單元格中獲取單個數據(例如A1,D1,H1,X1)並將其粘貼到預定義的PowerPoint幻燈片布局中。 因此,每個單元格都將轉到幻燈片布局中的相應位置。 我認為只需要一點修改,但是我絕對不知道該怎么做。 我對VBA真的很陌生,因此感謝所有幫助。
謝謝您的時間,祝您度過愉快的一天! :)
Sub CopyRangeToPresentation()
'Variables
Dim PP As PowerPoint.Application
Dim PPpres As PowerPoint.Presentation
Dim PPslide As PowerPoint.Slide
Dim SlideTitle As String
Dim lRow As Long
Dim i As Integer
'Fider
lRow = Cells.Find(What:="*", _
After:=Range("A1"), _
LookAt:=xlPart, _
LookIn:=xlFormulas, _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious, _
MatchCase:=False).Row
'New presentation
Set PP = New PowerPoint.Application
Set PPpres = PP.Presentations.Add
Set PP = GetObject(, "PowerPoint.Application")
PP.Visible = 1
For i = 1 To lRow
'New slide
Set PPslide = PPpres.Slides.Add(i, ppLayoutBlank)
PP.ActiveWindow.ViewType = ppViewSlide
PPpres.PageSetup.SlideSize = ppSlideSizeOnScreen
PP.ActiveWindow.WindowState = ppWindowMaximized
PPslide.Select
'Copy
Sheets("dataflows").Range(Cells(i, 1), Cells(i, 24)).CopyPicture _
Appearance:=xlScreen, Format:=xlPicture
'Paste
PPslide.Shapes.Paste.Select
PP.ActiveWindow.Selection.ShapeRange.Align msoAlignCenters, True
PP.ActiveWindow.Selection.ShapeRange.Align msoAlignMiddles, True
'Title
Next i
'Memory
PP.Activate
Set PPslide = Nothing
Set PPpres = Nothing
Set PP = Nothing
End Sub
您可以在所需單元格的位置使用文本框創建自定義布局。 文本框內的文本可用於標識它們(例如“ mybox1”)。 您可以通過Google搜索如何從自定義布局添加新幻燈片。 然后搜索形狀並將單元格粘貼到相同的位置。 像這樣:
'Paste
For Each PPshape In PPslide.Shapes
If PPshape.HasTextFrame Then
If PPshape.TextFrame.HasText Then
If PPshape.TextFrame.TextRange.Text = "mybox1" Then
PPslide.Shapes.Paste.Select
PP.ActiveWindow.Selection.ShapeRange.Left = PPshape.Left
PP.ActiveWindow.Selection.ShapeRange.Top = PPshape.Top
PPshape.Delete
End If
End If
End If
Next PPshape
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.