[[20200209172414]]　『ダブルクリックで図形挿入』（初心者）　ページの最後に飛ぶ

『ダブルクリックで図形挿入』（初心者）

マクロ超初心者です。
下記のマクロで図形(◯)の線の色を赤にするには、
どのようにしたらよいですか。
宜しくお願いします。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

 Dim mySh As Shape, HT As Double, WD As Double
 Cancel = True
 HT = Target.Height
 WD = Target.Width
 With Target
 Set mySh = ActiveSheet.Shapes.AddShape(msoShapeOval, .Left, .Top, 40, 40)
 mySh.Fill.Visible = msoFalse
 mySh.IncrementLeft (WD - 40) / 2
 mySh.IncrementTop (HT - 40) / 2
 End With
End Sub

＜使用 Excel：Excel2013、使用 OS：Windows8 ＞

 マクロ記録してください。
 因みに2007だと、図形類のマクロ記録ができないので解らない。
（BJ） 2020/02/09(日) 18:02

すみませんでした。
こちらでいかがでしょうか。
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

 Dim mySh As Shape, HT As Double, WD As Double

 Cancel = True

 HT = Target.Height

 WD = Target.Width

 With Target

 Set mySh = ActiveSheet.Shapes.AddShape(msoShapeOval, .Left, .Top, 40, 40)

 mySh.Fill.Visible = msoFalse

 mySh.IncrementLeft (WD - 40) / 2

 mySh.IncrementTop (HT - 40) / 2

 End With

End Sub
（初心者） 2020/02/09(日) 19:10

 >線の色を赤にするには、 
一行追加

mySh.Line.ForeColor.RGB = RGB(255, 0, 0)

（ピンク） 2020/02/09(日) 19:14

ありがとうございました。
出来ました‼️

もう一つよいですか。
この状態ですと線の太さが2ptですが、
1.75ptや1.5ptにするには、何を追加したらよいですか。
（初心者） 2020/02/09(日) 19:26

＞マクロ記録してください。

が、今回も有効です。

（マナ） 2020/02/09(日) 19:30

コメント返信：

[ 一覧(最新更新順) ]

[[20200209172414]] 『ダブルクリックで図形挿入』（初心者） ページの最後に飛ぶ

[[20200209172414]]　『ダブルクリックで図形挿入』（初心者）　ページの最後に飛ぶ