Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


30695 / 76732 ←次へ | 前へ→

【51301】Re:VBA デジタル時計の作成
発言  ぱっせんじゃー  - 07/9/11(火) 7:41 -

引用なし
パスワード
   もしかして表示文字の作りかたが分からないのかな?
たまたま昨日遊びでデジタル文字の作り方を勉強してたので
書いてみます。
自動記録に毛が生えた程度ですが。
シェイプで台形を作り、コピーし90度回転、二つの台形を
結合します。

Sub test()
Dim tp As Single
Dim lt As Single
Dim wd As Single
Dim ht As Single
Dim r As Range
Dim sp As Object
Dim myarray() As Variant
Dim i As Integer
 Set r = ActiveCell
 lt = r.Left
 tp = r.Top
 wd = r.Offset(, 1).Left - r.Left
 ht = r.Offset(1).Top - r.Top
  ActiveSheet.Shapes.AddShape(msoShapeTrapezoid, lt, tp, wd, ht).Name = "SP1"

  ActiveSheet.Shapes("SP1").Duplicate.Name = "SP2"
  With ActiveSheet.Shapes("SP2")
  .IncrementRotation 180#
  .Top = ActiveSheet.Shapes("SP1").Top - ht
  .Left = lt
  ActiveSheet.Shapes("SP1").Top = .Top + .Height

  End With
  i = -1
  For Each sp In ActiveSheet.DrawingObjects
  i = i + 1
  ReDim Preserve myarray(0 To i)
  myarray(i) = sp.Name
  Next
 ActiveSheet.Shapes.Range(myarray).Group.Name = "G"
End Sub
2 hits

【51299】VBA デジタル時計の作成 さつき 07/9/11(火) 6:21 質問
【51300】Re:VBA デジタル時計の作成 ぱっせんじゃー 07/9/11(火) 7:38 発言
【51301】Re:VBA デジタル時計の作成 ぱっせんじゃー 07/9/11(火) 7:41 発言
【51306】Re:VBA デジタル時計の作成 ぱっせんじゃー 07/9/11(火) 11:01 発言
【51324】Re:VBA デジタル時計の作成 さつき 07/9/12(水) 5:32 お礼
【51303】Re:VBA デジタル時計の作成 ichinose 07/9/11(火) 8:20 発言
【51323】Re:VBA デジタル時計の作成 さつき 07/9/12(水) 5:26 質問
【51326】Re:VBA デジタル時計の作成 ichinose 07/9/12(水) 7:17 発言

30695 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free