ゴリラストロングの雑記帳

月収10万円の広告収入を目指す自称専業ライターのブログです。




【VBA】オートシェイプ上にデジタル時計を表示するマクロを作成したかったのですが…どなたか教えてくださいm(__)m




どうも、ゴリラストロングです。

 

今回はVBAで、オートシェイプ上にデジタル時計を表示するマクロを作成してみました。

 

と、言いたいところなのですが、うまく作成できませんでした。

 

現在時刻をオートシェイプ上に表示することはできたのですが、その時刻をリアルタイムで動かすことができません。

 

●Application.OnTime

●For~Next

●Sleep

 

上記を用いて色々と試してはみたのですが、解決に至りませんでした。

この記事をご覧になっている方でどなたかお知恵をお借りすることはできませんでしょうか。

何卒よろしくお願いいたします。

 

【VBA】オートシェイプ上にデジタル時計を表示するマクロ(未完成)

VBA】オートシェイプ上にデジタル時計を表示するマクロ(未完成)

 

ソースコード

Sub clock()

With ActiveSheet.Range("B2:E11")
    ActiveSheet.Shapes.AddShape(Type:=msoShapeRoundedRectangle, _
    Left:=.Left, Top:=.Top, Width:=.Width, Height:=.Height).Select
End With

Selection.Text = Format(Now(), "h:mm:ss")

With ActiveSheet.Shapes(1)
    .Fill.ForeColor.RGB = RGB(204, 204, 255)
    .Line.ForeColor.RGB = RGB(128, 0, 128)
    .Line.Weight = 10
    .TextFrame.Characters.Font.ColorIndex = 5
    .TextFrame.Characters.Font.Bold = True
    .TextFrame.Characters.Font.Size = 45
    .TextFrame.VerticalAlignment = xlVAlignCenter
    .TextFrame.HorizontalAlignment = xlVAlignCenter
End With

End Sub

 

解決策をご教示いただける方のご連絡をお待ちしております。

以上、ゴリラストロングでした。