|
Jaka さんこんにちは
sugi さん、何をSelectionしているのでしょうか?
もしかして ”Shapes”を選択してるんですか?
もしそうなら、質問の説明が不十分です。
一応 ”Shapes” を選択している場合のコードを載せておきます。
選択2の様にもできます。
Sub 選択()
Dim si As Range
Dim rs As Long
Dim cs As Long
Set si = Selection.TopLeftCell
si.Select
rs = ActiveCell.Row
cs = ActiveCell.Column
Cells(rs, cs).Select
ActiveCell.FormulaR1C1 = "●"
ActiveCell.Font.Size = 12
End Sub
Sub 選択2()
Dim si As Range
If TypeName(Selection) = "Range" Then
MsgBox "テキストボックス等を選択してください"
Exit Sub
End If
Set si = Selection.TopLeftCell
si.Select
With Selection
.FormulaR1C1 = "●"
.Font.Size = 12
End With
End Sub
|
|