(続）EXCEL VBA のコードをズバリで！

質問

http://okwave.jp/qa/q6535908.html

で、完成かと思われましたが・・・。
円の雛型の各種設定が保存・呼び出しで初期化されるという不具合が発生。
急遽、円を生成することにしました。
そこで、次の質問を致します。

質問１、.Ovals.Add(200, 0, 20, 20)　は、これでよいのでしょうか？
質問２、.Border.LineStyle　で点線の記号定数
質問３、文字の垂直方向の指定要領・・・中心
質問４、内部の余白の指定要領・・・上下を０に

なお、現在の円を生成するコードは次のようです。

Sub cmdUpdateSokueki_1()
　　Set myDocument = Worksheets("調査データ")
　　Dim r As Range ' 読み込むRange
　　・・・・・
　　Dim shapeCounter As Integer ' 描画する円のカウンター(=name)

　　With myDocument
　　　　For Each r In .Range("C15", .Range("C65536").End(xlUp))
　　　　　　・・・・・
　　　　　　If tubeState >= 0 Then
　　　　　　　　・・・・・
　　　　　　　　createShapes_1 "特殊部管理台帳", shapeCounter, shapeNumber, tubeState, shapeDiameter
　　　　　　　　・・・・・
　　　　　　End If
　　　　Next r
　　End With
End Sub

更新Subが呼び出す Sub です。

Public Sub createShapes_1(ByVal sheetName As String, _
　　　　　　　　　　　　　ByVal shapeCounter As Integer, _
　　　　　　　　　　　　　ByVal shapeNumber As Integer, _
　　　　　　　　　　　　　ByVal tubeState As Integer, _
　　　　　　　　　　　　　ByVal shapeDiameter As Single)
　　Set myDocument = Worksheets(sheetName)
　　Dim intLeft As Integer
　　Dim intTop As Integer

　　With myDocument
　　　　intLeft = .Range("I37").Offset(, (shapeCounter Mod 7) * 2).Left
　　　　intTop = .Range("I37").Offset((shapeCounter \ 10) * 2, 0).Top
　　　　With .Ovals.Add(200, 0, 20, 20)
　　　　　　Select Case tubeState
　　　　　　　　Case 0
　　　　　　　　　　.Border.LineStyle = msoLineSolid ' 本来は点線 ＊＊＊＊＊＊＊＊
　　　　　　　　　　.Interior.Color = vbWhite
　　　　　　　　　　.Font.Color = vbWhite
　　　　　　　　Case 1
　　　　　　　　　　.Border.LineStyle = msoLineSolid
　　　　　　　　　　.Interior.Color = vbWhite
　　　　　　　　　　.Font.Color = vbBlack
　　　　　　　　Case 2
　　　　　　　　　　・・・・・
　　　　　　　　Case Else
　　　　　　End Select
　　　　　　.Name = "oval100" & Format(shapeCounter, "00")
　　　　　　.Placement = xlMove
　　　　　　・・・・・
　　　　　　.Left = intLeft
　　　　　　.Top = intTop
　　　　　　.Orientation = 3
　　　　End With
　　End With
End Sub

PS:一応は所定の位置に円を描画しています。

回答No.2

end-u · ベストアンサー

私が前回のレスでOvalsを使ったのはまずかったですね。
隠しObjectなのでヘルプ等で確認できません。
素直にShapeを使ってください。失礼しました。

ところでExcelのバージョンは何でしょう？
2007以外ではマクロ記録が参考になります。
ただし、Shape操作時の Selection が TextFrame になる事がありますからその点は気をつけてください。

Sub try3() 'ステップ実行推奨
　　Dim sp As Shape
　　Dim L　As Single
　　Dim T　As Single
　　Dim W　As Single
　　Dim H　As Single

　　L = 10
　　T = 20
　　W = 30
　　H = 40

　　Set sp = ActiveSheet.Shapes.AddShape(msoShapeOval, L, T, W, H)
　　With sp
　　　　'最初にテキスト追加しないと後のTextFrame操作でエラー
　　　　.TextFrame.Characters.Text = ""
　　　　'線に対する処理
　　　　.Line.DashStyle = msoLineSquareDot
　　　　.Line.DashStyle = msoLineRoundDot
　　　　.Line.DashStyle = msoLineDash
　　　　.Line.DashStyle = msoLineSolid
　　　　.Line.ForeColor.RGB = RGB(255, 255, 255)
　　　　.Line.ForeColor.RGB = RGB(0, 0, 0)
　　　　.Line.Weight = 1
　　　　'背景に対する処理
　　　　.Fill.ForeColor.RGB = RGB(0, 0, 0)
　　　　.Fill.ForeColor.RGB = RGB(255, 255, 255)
　　　　'TextFrameに対する処理
　　　　.TextFrame.Characters.Text = "aa"
　　　　.TextFrame.Characters.Font.Color = vbWhite
　　　　.TextFrame.Characters.Font.Color = vbBlack
　　　　.TextFrame.HorizontalAlignment = xlCenter
　　　　.TextFrame.VerticalAlignment = xlCenter
　　　　.TextFrame.HorizontalAlignment = xlLeft
　　　　'余白、向き
　　　　.TextFrame.MarginLeft = 0
　　　　.TextFrame.MarginRight = 0
　　　　.TextFrame.MarginTop = 0
　　　　.TextFrame.MarginBottom = 0
　　　　.TextFrame.Orientation = 3
　　　　.TextFrame.Orientation = 2
　　　　.TextFrame.Orientation = 1
　　End With
　　Set sp = Nothing
End Sub

お礼

お礼が遅くなってしまいました。
２倍速になったのでプログラムをさぼっていました。
本日、只今、オブジェクトをShapeに修正しました。
実際に作業してみたところ６０分が２０分まで短縮されました。
これで余裕を持って作業をすることができます。
本当にありがとうございました。
現場の担当者の方も、２倍速でもものすごーく喜んでいます。
３倍速ですと、とってもだと推察されます。
本当にありがとうございました。

補足

バージョンは2007です。
点線で描画されれば、ほぼ完成でした。
記号定数ではなく1,2と試しましたが、点線がなく当惑していたところです。
Ovalsを使っても、ほぼ作業時間を半減することに成功しました。
現実問題としては、余白の操作はしないでフォントサイズを小さくして対応していたからです。
だから、手作業は一部の円を点線にする作業のみだったからです。
まあ、それでも100%手作業を廃止してなんぼですのでShapesを使います。

朝と夜も別の仕事をしていますので、パソコンに向かうのは夜に２、３時間のみ。
離島住まいという環境ですので書籍もありません。
そういう事情で厚かましく質問を重ねた次第です。
先ずは、補足欄にてお礼をしておきます。

回答No.1

layy

前回、洩れが起こりそうだと言ったのに。
甘く見ない方が良い。

大袈裟にいえば、この前新幹線５路線止まったのも小さなミスからです。

もう一度言っておきます。

100％を求めること。100％の説明であり、100％のテストであり、確認であり。説明不足は洩れを招きます。

回答はテストしていないまま提供している、というつもりで自分で確認、保持するべき。

なので、
再度、伝え洩れは無いか、です。

お礼

＞再度、伝え洩れは無いか、です。

それは、本当の所は判りません。
が、あくまでも現時点では無いと思っていますが・・・。
この怪しさが、確かに問題です。

さて、前回の指摘を受けて・・・。

「おい、本当にこれは役所に提出するのかい？」
「アハア！そんな訳ないだろうが！」
「エッ！」
「国土交通省ってのは、実は富○建設のあだ名さ！」
「島で一番の土建屋の富○建設かい？」
「そんなの常識だぜ！」

と、島暮らし一ヶ月の私にとっては驚きの答えでした。

「６割がたあっていればいいさ！アハハ！」

実は、どうでもよい土建屋の私的な調査資料だったと知って愕然です。
少し、状況に関して訂正しておきます。

しかし、ズバリのコードが無いとプログラミングできない自分が実に情けないです。
まあ、そこら辺りはシルバー人材センターの限界だと思ってください。
それはそれとして、回答者の指摘は＜肝に銘じて＞教訓にしたいと思います。

重ねての指摘、本当にありがとうございます。