Rebecca Birch có một số khách hàng yêu cầu tất cả các báo cáo phải được trình bày cho họ trong PowerPoint. Điều này đưa ra một nhiệm vụ rất lớn, vì tất cả dữ liệu nguồn cho các báo cáo đó chỉ có sẵn trong Excel. Rebecca đang tìm kiếm các ý tưởng để làm cho gánh nặng chuyển đổi từ cái này sang cái khác dễ dàng hơn một chút – có lẽ bằng cách chụp “ảnh chụp nhanh” dữ liệu trang tính và đặt nó vào các slide PowerPoint.

Một giải pháp, nếu không có nhiều ảnh chụp nhanh cần thiết, là chỉ cần dán thủ công. Bạn có thể hiển thị thông tin trong Excel, sau đó nhấn phím PrintScreen để đặt ảnh của thông tin đó trong Office Clipboard. Chuyển sang PowerPoint và chọn Office Clipboard từ menu Chỉnh sửa. Sau đó, bạn có thể xem nội dung của Bảng tạm và chọn những gì bạn muốn dán vào trang chiếu hiện tại.

Một cách tiếp cận ít lặp lại hơn sẽ là liên kết dữ liệu từ sổ làm việc Excel với các trang trình bày. Bạn có thể sử dụng Edit | Dán Đặc biệt (trong PowerPoint) để dán dữ liệu được liên kết. Bằng cách này, bất kỳ lúc nào dữ liệu trong sổ làm việc được cập nhật, các trang chiếu được liên kết cũng sẽ được cập nhật. Được thực hiện một cách chính xác, giải pháp này có khả năng chỉ cần thực hiện thao tác dán của bạn một lần duy nhất.

Nếu bạn muốn sử dụng con đường phát triển macro để thực hiện việc dán, hãy xem một con đường được phát triển bởi Jon Peltier tại trang web của anh ấy:

http://peltiertech.com/Excel/XL_PPT.html#rangeppt

Nó sẽ chụp nhanh bất kỳ ô nào được chọn, sau đó dán chúng vào trang chiếu hoạt động trong PowerPoint. (Rõ ràng là bạn phải mở cả Excel và PowerPoint để sử dụng macro.)

Hơn nữa, macro có thể được sửa đổi tương đối dễ dàng để nó vượt qua một loạt các phạm vi được đặt tên trong Excel và dán nội dung của các phạm vi đó vào các trang trình bày cụ thể trong PowerPoint.

Một giải pháp dựa trên macro khác là tạo bản trình bày PowerPoint mới (từ bên trong Excel) sẽ chứa ảnh chụp nhanh của từng trang tính trong sổ làm việc Excel hiện tại. Macro sau hoàn thành nhiệm vụ này:

Sub CopyWksToPPT()

Dim pptApp As Object     Dim sTemplatePPt As String     Dim wks As Worksheet     Dim sTargetTop As Single     Dim sTargetLeft As Single     Dim sTargetWidth As Single     Dim sTargetHeight As Single     Dim sScaleHeight As Single     Dim sScaleWidth As Single     Dim iIndex As Integer

'Change these as desired     sTargetTop = 30     sTargetLeft = 60     sTargetWidth = 600     sTargetHeight = 450     sTemplatePPt = "C:\Program Files\Microsoft Office\Templates\Blank Presentation.pot"



iIndex = 1     Set pptApp = CreateObject("Powerpoint.Application")

With pptApp         .Visible = True         .Presentations.Open _             FileName:=sTemplatePPt, Untitled:=msoTrue         For Each wks In Worksheets             wks.Select             .ActiveWindow.View.GotoSlide _                 Index:=.ActivePresentation.Slides.Add _                 (Index:=iIndex, Layout:=12).SlideIndex             iIndex = iIndex + 1             wks.UsedRange.Copy             .ActiveWindow.View.Paste             With .ActiveWindow.Selection.ShapeRange                 sScaleHeight = sTargetHeight / .Height                 sScaleWidth = sTargetWidth / .Width                 If sScaleHeight < sScaleWidth Then                     sScaleWidth = sScaleHeight                 Else                     sScaleHeight = sScaleWidth                 End If                 .ScaleHeight sScaleHeight, 0, 2                 .ScaleWidth sScaleWidth, 0, 2                 .Top = sTargetTop + (sTargetHeight - .Height) / 2                 .Left = sTargetLeft + (sTargetWidth - .Width) / 2             End With         Next         .Visible = True     End With End Sub

Lưu ý khu vực có nội dung “Thay đổi những điều này như mong muốn.” Điều này chứa các thông số kỹ thuật về vị trí của ảnh chụp nhanh đã dán trong mỗi trang chiếu PowerPoint, cũng như chiều cao và chiều rộng của nó. Cũng bao gồm, trong biến sTemplatePPt, là đường dẫn đầy đủ đến mẫu sẽ được sử dụng cho bản trình bày PowerPoint mới.

_Lưu ý: _

Nếu bạn muốn biết cách sử dụng các macro được mô tả trên trang này (hoặc trên bất kỳ trang nào khác trên trang ExcelTips), tôi đã chuẩn bị một trang đặc biệt bao gồm thông tin hữu ích.

ExcelTips là nguồn của bạn để đào tạo Microsoft Excel hiệu quả về chi phí.

Mẹo này (2378) áp dụng cho Microsoft Excel 97, 2000, 2002 và 2003.