|
▼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
' たぶん、これでOKかと思います。
>> novl.Left = .Left + .Width / 2 - ovl.Width / 2
>> novl.Top = .Top + .Height / 2 - ovl.Height / 2
>> End With
>> ActiveCell.Select
>>End Sub
|
|