Home‎ > ‎日記(2012年03月)‎ > ‎

2012-03-13

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