|
下記マクロでアクティブセルの中心に貼り付けできますが、セルが結合されている時は結合セルの中心、されていない時はアクティブセルの中心にできないでしょうか?
よろしく、お願いします。
>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
> novl.Left = .Left + .Width / 2 - ovl.Width / 2
> novl.Top = .Top + .Height / 2 - ovl.Height / 2
> End With
> ActiveCell.Select
>End Sub
|
|