2012/06/09 1:54 に 桃桜 が投稿
2012-03-13 ラズベリーパイ(Raspberry Pi)大人気で初回出荷分1万台は完売だそうです。 ¥3,400はお得な感じ 欲しいなって思うけど・・・・ http://jp.rs-online.com/web/generalDisplay.html?id=raspberrypi パワーポイントスライドショーの実行時間を表示するマクロ作りました。 非表示スライドを除いた時間とスライド枚数を表示します Sub DispSlideShowTimes()
Dim objSld As Slide
Dim lngTotalTime As Long
Dim ppSlides As Long
Dim hiddenSlides As Long
ppSlides = 0
lngTotalTime = 0
hiddenSlides = 0
For Each objSld In ActivePresentation.Slides
If objSld.SlideShowTransition.Hidden = False Then
lngTotalTime = lngTotalTime + objSld.SlideShowTransition.AdvanceTime
ppSlides = ppSlides + 1
Else
hiddenSlides = hiddenSlides + 1
End If
Next objSld
MsgBox ppSlides & "枚で総時間は、" & lngTotalTime & "秒です。" & vbCrLf & vbCrLf & _
" 非表示スライドは" & hiddenSlides & "枚です" _
, vbOKOnly _
, "スライドショーの枚数と時間"
End Sub
|
|