お気楽工作日記

VBAでメーターを作る

メーターの写真に別に描いた針を重ねて、針をＶＢＡで回転させてます。

その１　メーターの写真を用意して、オートシェイプで針を描きます。

針はオートシェイプの三角形と丸を組み合わせて作りました。ディフォルトでは、画の中心が回転中心となるので、針は上下、左右対称になるように描いてます。なので、本来不要な下側の針は「線なし」、「塗りつぶしなし」にしておきます。

その２　メーターの写真に針を重ねる。

メーターの写真に"mojiban"、針に"hari"と名前をつけておきます。
文字盤の縦横のサイズ、位置と針の縦横のサイズを取得し、針の中心を、文字盤の中心にセットします。
針は真上を向いたときに０度（例のように描くと）、角度を増やしていくと、時計回りに回転するので、針を文字盤の０にあわせるために、角度を２３５度にセットします。
ＶＢＡのソースはこんな感じ↓

'文字盤と針の位置あわせ

'文字盤のサイズ、位置取得
Set WS = Worksheets("Sheet1")
Set Shp = WS.Shapes("mojiban")
With Shp

Range("A2") = Shp.Height
Range("A3") = Shp.Width
Range("A4") = Shp.Top
Range("A5") = Shp.Left

End With

'針のサイズ取得
Set Shp = WS.Shapes("hari")
With Shp

Range("b2") = Shp.Height
Range("b3") = Shp.Width

'針の中心を、文字盤の中心にセット
Shp.Top = Range("c2")　'c2=A4+A2/2-B2/2
Shp.Left = Range("c3") 'c3=A5+A3/2-B3/2

'針を文字盤の０にあわせる
Shp.Rotation = 235

End With

その３　スクロールバーで針を回転させる

スクロールバーの最小値～最大値を０～１００に設定して、針の角度２３５～４８５度に対応させれば、スクロールバーの値のとおりにメーターの針が動きます。
ＶＢＡのソースはこんな感じ↓

Private Sub ScrollBar1_Change()

Set WS = Worksheets("Sheet1")
Set Shp = WS.Shapes("hari")
With Shp
Shp.Rotation = (ScrollBar1.Value / 100 * 250) + 235
End With

End Sub

トラ技付録のＵＳＢマイコンボード
電子工作　メニュー
HOME