![](/img/trans.png)
[英]How to attach a excel workbook to slide in power point using vba
[英]How to get power point slide dimension using vba?
我正在做一个项目。 其中我想找出“我的文本框是否已经滑出幻灯片?” 。 如果是,则显示错误消息。
所以我的逻辑是,如果我找到了幻灯片的尺寸,那么我将在IF中使用它...其他条件如:
If textbox_position < slide_dimension then
#Error
end if
如果您有任何其他想法,请告诉我。
谢谢
演示文稿的.PageSetup.SlideWidth和.SlideHeight属性将为您提供幻灯片的尺寸。
你的功能需要做一些事情(头顶和空中......):
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
为什么你不使用PowerPoint的占位符来做到这一点? 例如:
Sub SetText(IndexOfSlide As Integer, txt As String)
'http://officevb.com
ActivePresentation.Slides(IndexOfSlide).Shapes.Placeholders(1).TextFrame.TextRange.Text = txt
End Sub
您可以调用此子并传递参数
IndexOfSlide带有一些slide和txt,带有要创建的文本。
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.