Làm thế nào để có được kích thước slide power point bằng cách sử dụng vba?

Question

Tôi đang làm việc trên một dự án. Trong đó tôi muốn tìm hiểu "Hộp thư của tôi có bị trượt hay không?" . Nếu có thì hiển thị thông báo lỗi.

rất logic của tôi là nếu tôi tìm thấy kích thước của slide sau đó tôi sẽ sử dụng nó trong NẾU ... điều kiện khác như:

If textbox_position < slide_dimension then 
#Error 
end if 

Nếu bạn có bất kỳ ý tưởng khác thì vui lòng cho tôi biết.

Cảm ơn

Answer 1

Thuộc tính .PageSetup.SlideWidth và .SlideHeight của bản trình bày sẽ cung cấp cho bạn kích thước của trang trình bày theo điểm.

Chức năng của bạn sẽ cần phải làm một cái gì đó giống như (off đỉnh đầu và ra khỏi không khí ..):

Function IsOffSlide (oSh as Shape) as Boolean 
    Dim sngHeight as single 
    Dim sngWidth as Single 
    Dim bTemp as Boolean 

    bTemp = False ' by default 

    With ActivePresentation.PageSetup 
    sngHeight = .SlideHeight 
    sngWidth = .SlideWidth 
    End With 

    ' this could be done more elegantly and in fewer lines 
    ' of code, but in the interest of making it clearer 
    ' I'm doing it as a series of tests. 
    ' If any of them are true, the function will return true 
    With oSh 
    If .Left < 0 Then 
     bTemp = True 
    End If 
    If .Top < 0 Then 
     bTEmp = True 
    End If 
    If .Left + .Width > sngWidth Then 
     bTemp = True 
    End If 
    If .Top + .Height > sngHeight Then 
     bTemp = True 
    End If 
    End With 

    IsOffSlide = bTemp 
End Function 

Answer 2

Tại sao bạn không sử dụng trình giữ chỗ của PowerPoint để thực hiện việc này? ví dụ:

Sub SetText(IndexOfSlide As Integer, txt As String) 
'http://officevb.com 
     ActivePresentation.Slides(IndexOfSlide).Shapes.Placeholders(1).TextFrame.TextRange.Text = txt 
End Sub 

Bạn có thể gọi phụ này và vượt qua các thông số

IndexOfSlide với một số slide và txt với một văn bản để tạo ra.