セルの書式と同じオートシェイプを作成したい

質問

基となるセルの書式設定と同じになるようにオートシェイプを作成するマクロを作成したいです。
基のセルは事前に入力してありボタン操作でセルの書式設定を参照してオートシェイプを作成するところまで実装したいのですが、セルとオートシェイプで設定項目が異なるので完全に同じにはならなくとも見た目がほぼ同じものができればと思っています。
セルにはフォント、フォントサイズ、フォントの色、セルの塗りつぶし色、縦・横位置を設定しています。
よろしくお願いします。

回答No.1

SI299792 · ベストアンサー

オートシェイプ：今は図形と言っているそうです。いろいろありますが、四角でいいですか？
選択されているセル上に作ります。
合わせるのはセル位置・サイズ・テキスト・文字色・塗りつぶし
線の色は書いてなかったので勝手に黒にしました
他項目（太字・斜体等）は反映されません
'
Sub Macro1()
'
With ActiveSheet.Shapes.AddShape(msoShapeRectangle, _
ActiveCell.Left, ActiveCell.Top, ActiveCell.Width, ActiveCell.Height)
.Fill.ForeColor.RGB = ActiveCell.Interior.Color
.TextFrame2.TextRange.Characters.Text = ActiveCell
.TextFrame2.TextRange.Font.Fill.ForeColor.RGB = ActiveCell.Font.Color
.TextFrame2.TextRange.Font.Size = ActiveCell.Font.Size
.Line.ForeColor.RGB = vbBlack
End With
End Sub

回答No.2

chayamati

あなたのやりたい事は雛形の拡張子をテンプレート形式にして保存し
このファイルを新規作成から開くと通常のエクセルファイルとして開かれ、編集後閉じるで、ファイル名入力画面となります。