Ｐａｇｅ 720 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼オートシェイプの背景透明 TMOMT 03/2/10(月) 15:09 ┣Re:オートシェイプの背景透明 Jaka 03/2/10(月) 16:28 ┃ ┗ごめんなさい。 パピー 03/2/10(月) 16:33 ┣Re:オートシェイプの背景透明 パピー 03/2/10(月) 16:31 ┗jakaさんパピーさんありがとうございました TMOMT 03/2/11(火) 9:28 ─────────────────────────────────────── ■題名 ： オートシェイプの背景透明 ■名前 ： TMOMT ■日付 ： 03/2/10(月) 15:09 -------------------------------------------------------------------------
| Private Sub CommandButton1_Click() Dim sRange As Range Set sRange = Range("B10:B12") ActiveSheet.Shapes.AddShape(msoShapeOval, _ sRange.Left, sRange.Top, sRange.Width, sRange.Height).Select End Sub コマンドボタンを押すと丸印を描くのですが、背景を透明にする方法がわかりません。よろしければおしえていただけませんでしょうか。 |
| こんにちは。 マクロ記録すると、こんな感じでした。 Selection.ShapeRange.Fill.Visible = msoFalse |
| ▼Jaka さん： すいません。 かぶってしまいました。 |
| ▼TMOMT さん：こんにちは。 ．Ｆｉｌｌ．Ｖｉｓｉｂｌｅで透明にできると思いますが。 試してみて下さい。 質問の意を外していたらごめんなさい。 Private Sub CommandButton1_Click() Dim sRange As Range Set sRange = Range("B10:B12") ActiveSheet.Shapes.AddShape(msoShapeOval, _ sRange.Left, sRange.Top, sRange.Width, sRange.Height).Select Selection.ShapeRange.Fill.Visible = msoFalse End Sub |
| 無事解決いたしました。助かりました。VBAをはじめたばかりなもので、また、質問させていただく機会もおおいとおもいますが、よろしくおねがいします。 |