| |
▼okb さん：
こんばんは。
>下記マクロでアクティブセルの中心に貼り付けできますが、セルが結合されている時は結合セルの中心、されていない時はアクティブセルの中心にできないでしょうか？
>よろしく、お願いします。
>>Sub 丸印()
>> Dim ovl As Shape
>> Dim sheetname As String
>> sheetname = ActiveSheet.Name
>> Sheets(sheetname).Select
>> Set ovl = Sheets("sheet1").Shapes("Freeform 87")
>> ovl.Placement = xlMove
>> ovl.Copy
With ActiveSheet
>> .Paste
>> Set novl = .Shapes(.Shapes.Count)
>> End With
With ActiveCell.MergeArea
' たぶん、これでＯＫかと思います。
>> novl.Left = .Left + .Width / 2 - ovl.Width / 2
>> novl.Top = .Top + .Height / 2 - ovl.Height / 2
>> End With
>> ActiveCell.Select
>>End Sub
|
|
ichinose
- 05/3/19(土) 18:32 -
