Có cách nào để nói với PowerPoint không mở Excel khi tạo biểu đồ không?

Question

Slide.Shapes.AddChart() tự động mở Excel. Ngay cả khi tôi nhanh chóng làm Chart.ChartData.Workbook.Application.Visible = false, nó vẫn hiển thị một chút. Điều này làm cho việc tự động tạo biểu đồ dễ bị lỗi khi người dùng phải cố gắng không chạm vào các ứng dụng Excel mà vẫn tiếp tục xuất hiện.

Mở bản trình bày với WithWindow = false sẽ vẫn mở Excel khi tạo biểu đồ mới.

Answer 1

Hành vi này là "theo thiết kế" và Microsoft không quan tâm đến việc thay đổi. Đây là cách các chức năng giao diện người dùng.

Điều bạn có thể làm là tạo biểu đồ trong Excel (sử dụng interop hoặc OpenXML), sau đó nhập (chèn) tệp đó vào PowerPoint.

Kiểm tra liên kết này từ MSDN

Answer 2

Đây là công việc có thể xảy ra xung quanh.

Sub ChartExample() 
Dim s As Shape 
Set s = Application.Presentations(1).Slides(1).Shapes.AddOLEObject(ClassName:="Excel.Chart") 
End Sub 

Sau đó, bạn sẽ điều khiển biểu đồ mà bạn đã thêm qua s.OLEFormat.Object. Tôi chỉ thử nghiệm một chút, nhưng nó không mở một ứng dụng Excel bên ngoài và tôi không thấy bất kỳ nhấp nháy cực nào trừ khi tôi kích hoạt đối tượng. Một thương mại là ít nhất trong Powerpoint 2010, bạn cần phải chuyển đổi nó để sử dụng tất cả các tính năng. Nếu cách này không hiệu quả, bạn luôn có thể thử web components.

Chỉnh sửa: Tôi không hiểu tại sao phương pháp này gây ra sự cố, nhưng cố gắng hỗ trợ thêm ở đây là một ít mã hơn cho thấy thực sự thao tác đối tượng. Điều này đã được viết với các đối tượng thay vì workbook vv, do đó không có tài liệu tham khảo cần phải được thực hiện. Nó chỉ yêu cầu người dùng có Excel trên máy của họ.

Option Explicit 
Const xlcolumns = 2 
Sub ChartExample() 
Dim s As Shape 
Dim wb As Object, chart As Object, data As Object 
Set s = Application.Presentations(1).Slides(1).Shapes.AddOLEObject(ClassName:="Excel.Chart") 
Set wb = s.OLEFormat.Object 
Set chart = wb.Sheets(1) 
Set data = wb.Sheets(2) 
'Set the range for the chart data 
chart.setsourcedata Source:=data.Range("A1:C7"), PlotBy:= _ 
     xlcolumns 
'Update data values for the chart 
data.Range("B1").Value = "Column Label 1" 
data.Range("C1").Value = "Column Label 2" 
data.Range("A2:C7").clearcontents 
data.Range("A2").Value = "Row Label" 
data.Range("B2").Value = 7 
data.Range("C2").Value = 11 
End Sub 

Answer 3

tôi sẽ đề nghị methdology khác đến hơn đến cùng.

1. Trong powerpoint VBA thêm refrences để "Microsoft Excel 12.0 Object Library"

2. Đảm bảo cho người dùng biết cho điều này không có hoạt động của excel phải được mở thông qua mẫu yuser cửa sổ bật lên trước khi phẫu thuật.

3. Trong VBA tạo excel và thiết lập các thông số của nó trong đoạn mã sau

4. Thêm biểu đồ powerpoint, người dùng wouldnt có thể thấy việc mở các lớp dưới bảng excel khi thêm biểu đồ excet các tab excel có thể được kiểm soát thông qua mã.

Sample Code:

Option Explicit 

Sub AddExcelChartSample() 

    Dim xlApp As Excel.Application, xlWkbk As Excel.Workbook 

    Dim pres As PowerPoint.Presentation, sld As PowerPoint.Slide, iCount As Integer, chtShape As PowerPoint.Shape 

    'Open up the excel instance and set parameters 


    Set xlApp = New Excel.Application 
    With xlApp 
     .WindowState = xlNormal 
     .Top = -1000 
     .Left = -1000 
     .Height = 0 
     .Width = 0 
    End With 


    Set sld = PowerPoint.ActiveWindow.View.Slide 



    For iCount = 1 To 10 

     Set chtShape = sld.Shapes.AddChart(xlLine) 
     Set xlWkbk = chtShape.Chart.ChartData.Workbook 
     With xlWkbk 

      .Sheets(1).Range("A2").Value = "Test 1" 
      .Sheets(1).Range("A3").Value = "Test 2" 
      .Sheets(1).Range("A4").Value = "Test 3" 

     End With 

     chtShape.Chart.Refresh 

     xlWkbk.Close False 


    Next iCount 


    xlApp.Quit 

End Sub