
エクセルVBAでセルに塗りつぶしなしの丸をつけたい。
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim trg As Range
If TypeName(Selection) = "Range" Then
Set trg = Selection
ActiveSheet.Shapes.AddShape(msoShapeOval, trg.Left, _
trg.Top, trg.Width, trg.Height).Select
Selection.ShapeRange.Fill.Visible = msoFalse
trg.Select
End If
End Sub
を張り付けました。
家のPCでは、表示しますが、会社のPCでは、図形のマークが出るだけで、丸が表示されません。
設定があるのでしょうか?
よろしくお願いします。
A 回答 (3件)
- 最新から表示
- 回答順に表示
No.3
- 回答日時:
割り込み失礼します。
このご質問は、オプションの設定の問題だと思ったのですが、
fujillinさんご指摘の、デフォルトには気が付きませんでした。
その上で、てんこ盛りで、いろいろ加えてみました。
Sheet モジュールでは、インテリセンスが働きますから、プロパティの種類は自動で教えてくれます。図形線種?.以下の .Style = の=を取って再度=を入れれば、インテリセンスが出てきます。
後は、HLEPボタン(F1)ではないかな?
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True '←ダブルクリックの時は、これは忘れないで!
With Target
With Me.Shapes.AddShape(msoShapeOval, _
.Left, .Top, .Height, .Height) '楕円でなく丸
.Fill.Visible = msoFalse
With .Line
.Visible = msoTrue
.ForeColor.SchemeColor = 1 - 1 'SchemeColor は、ColorIndex から1を引く
.Weight = 2#
.Style = msoLineSingle
.DashStyle = msoLineSolid
.Transparency = 0#
End With
End With
End With
End Sub
'ColorIndex
'黒(1),白(2),赤(3),黄緑(4),青(5),黄色(6),ピンク(7),'水色 (8), 茶(9), 緑(10), 藍(11)
No.2
- 回答日時:
#1です。
>図形線種を指定するマクロを教えていただけますでしょうか。
マクロの記録を作成してみればわかるのではないかと・・・
念のため太さや線種の指定もしていますが、不要なら削除してください。
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim trg As Range
If TypeName(Selection) = "Range" Then
Set trg = Selection
ActiveSheet.Shapes.AddShape(msoShapeOval, trg.Left, _
trg.Top, trg.Width, trg.Height).Select
Selection.ShapeRange.Fill.Visible = msoFalse
With Selection.ShapeRange.Line
.Visible = msoTrue
.ForeColor.RGB = RGB(0, 0, 0)
.Transparency = 0
.Weight = 1.5
.Style = msoLineSingle
End With
End If
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで特定の列が0表示の場...
-
特定のPCだけ動作しないVBAマク...
-
メッセージボックスのOKボタ...
-
一つのTeratermのマクロで複数...
-
UWLSの記録でマクロを作成し使...
-
Excel マクロ VBA プロシー...
-
Excel_マクロ_現在開いているシ...
-
Excel マクロでShearePoint先の...
-
TERA TERMを隠す方法
-
Excel・Word リサーチ機能を無...
-
「マクロの記録」で作成したマ...
-
ExcelのVBA。public変数の値が...
-
ExcelVBAでPDFを閉じるソース
-
VBAを使ってエクセルを秀丸にコ...
-
OnTimeを使ったのですが「エラ...
-
既存のマクロをコンボボックス...
-
エクセルマクロでワードの一ペ...
-
特定文字のある行の前に空白行...
-
エクセルで別のセルにあるふり...
-
エクセルで縦に並んだデータを...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで特定の列が0表示の場...
-
特定のPCだけ動作しないVBAマク...
-
メッセージボックスのOKボタ...
-
Excel_マクロ_現在開いているシ...
-
一つのTeratermのマクロで複数...
-
マクロの連続印刷が突然不可能...
-
ExcelのVBA。public変数の値が...
-
Excel マクロ VBA プロシー...
-
Excel・Word リサーチ機能を無...
-
エクセルに張り付けた写真のフ...
-
Excelのセル値に基づいて図形の...
-
TERA TERMを隠す方法
-
マクロ実行時エラー
-
ExcelVBAでPDFを閉じるソース
-
wordを起動した際に特定のペー...
-
特定文字のある行の前に空白行...
-
Excel マクロでShearePoint先の...
-
エクセルで縦に並んだデータを...
-
マクロ実行時、ユーザーフォー...
-
ソース内の行末に\\
おすすめ情報