ラズベリーパイ(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