先ほど、最背面に移動を
Dim sp As Shape
Set sp = ActiveSheet.Shapes.AddShape(msoShapeOval, 340, 140, 73, 52)
With sp
With .Line
.Weight = xlThin
.ForeColor.SchemeColor = 10
End With
.ZOrder msoSendToBack
End With
の様に教えていただきました。しかし、併せてオートシェイプの書式設定で塗りつぶしの色の「塗りつぶしなし」を設定したいのです。
自動記録に試して見ましたが,エラーが出て上手くいきません。よろしくお願いします。
No.3
- 回答日時:
Dim sp As Shape
Set sp = ActiveSheet.Shapes.AddShape(msoShapeOval, 340, 140, 73, 52)
With sp
With .Line
.Weight = xlThin
.ForeColor.SchemeColor = 10
End With
.Fill.Visible = msoFalse'これ追加
.ZOrder msoSendToBack
End With
No.2
- 回答日時:
Dim sp As Shape
Set sp = ActiveSheet.Shapes.AddShape(msoShapeOval, 340, 140, 73, 52)
With sp
With .Line
.Weight = xlThin
.ForeColor.SchemeColor = 10
End With
.Fill.Transparency = 1.0 'これ追加
.ZOrder msoSendToBack
End With
No.1ベストアンサー
- 回答日時:
Sub test01()
Dim sp As Shape
Set sp = ActiveSheet.Shapes.AddShape(msoShapeOval, 340, 140, 73, 52)
sp.Select
Selection.ShapeRange.Fill.Visible = msoFalse
With sp
With .Line
.Weight = xlThin
.ForeColor.SchemeColor = 10
End With
.ZOrder msoSendToBack
End With
End Sub
でうまくいくようですが。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBAで教えて頂きたいのですが? 1 2022/04/29 02:36
- Visual Basic(VBA) ExcelVBAのマクロについて。 9 2022/05/04 14:50
- Excel(エクセル) EXCEL マクロで行を挿入して貼り付けようとするとエラーになる。 2 2022/05/24 09:43
- Visual Basic(VBA) エクセルVBA ダブルクリックしたら色反転を指定したセルのみにしたい 2 2022/04/06 12:52
- その他(Microsoft Office) エクセル 表の移動 2 2023/04/05 20:29
- Visual Basic(VBA) 前回ご教授いただいたコードに覚えたてのループ処理で品名りんごAから順に20回for nextでループ 7 2023/01/13 22:01
- Visual Basic(VBA) QRコード作成マクロについて 3 2022/11/26 16:55
- Excel(エクセル) 【マクロ】スクショ印刷がうまく動かない件 5 2022/12/06 17:37
- その他(Microsoft Office) マクロVBAについて 1 2022/09/06 18:12
- Visual Basic(VBA) 【VBA】特定のワードが入っている行全体を塗りつぶしたい 4 2022/04/20 15:22
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Frontpage Expressでスペースキ...
-
投資に詳しい方に質問です。 こ...
-
MCIデバイスがありません
-
エラーでインストールに毎回失...
-
このソフトって消してもいいん...
-
agent.exe ってなんですか?
-
ウイルスでしょうか?
-
ウイルスセキュリティが入って...
-
音声編集の左右バランスについて
-
realtek HD audioに変更したい
-
Windows 95/98対応ソフトをXPで...
-
ウインドウズアップデート エラ...
-
インストール時などに英語表記...
-
突然の「Windowsラインセンス認...
-
リカバリーディスクもないまま...
-
セキュリティソフトのアンイン...
-
ネットカフェで
-
PowerDVD12でBlu-rayが見れなく...
-
外付けHDDにofficeをインストー...
-
PCを人に預けます。
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
円でオルガンやsp500を持ってい...
-
投資に詳しい方に質問です。 こ...
-
エクセルで、最背面に移動と塗...
-
バフェットはなんでsp500は買っ...
-
xp-sp1からxp-sp2へのupについて
-
インストールが出来なくて困っ...
-
このソフトって消してもいいん...
-
PowerDVD12でBlu-rayが見れなく...
-
リカバリーディスクもないまま...
-
MP3Gain 音量を変更しても…
-
アドクリーナーについてお伺い...
-
MMDのAVI出力に関して
-
Windows10で画像のスライドショ...
-
Windows Updateが動作しません
-
zoom pc版のインストールが出来...
-
エラーでインストールに毎回失...
-
ノートパソコンのスピーカーか...
-
agent.exe ってなんですか?
-
DELLの再インストールCDで他社...
-
インターネットカフェのパソコ...
おすすめ情報