|
こんばんは。
>フォントサイズは、文字の縦/横が全体的に大きくなったり小さくなったりしますが、例えば、横の大きさは変えず、縦の方向を二倍にすることはできますでしょうか?
>・・・やはり、フォントを作成して用意するしかありませか???
考え方は、りんさんと同じですが、カメラ機能を使うのはいかがですか?
新規ブックの標準モジュールに
'===============================================================
Sub sample()
Dim pic As Picture
With Range("a1")
.Font.Name = ""
.Font.Size = 18
.Value = "Excel VBA"
.EntireColumn.AutoFit
.EntireRow.AutoFit
.CopyPicture xlScreen, xlPicture
.Offset(0, 1).Select
Set pic = .Parent.Pictures.Paste
pic.ShapeRange.Fill.Solid
pic.Formula = "=a1"
pic.Height = .Height * 2
End With
End Sub
sampleを実行してみてください。
セルA1の内容を縦方向だけ2倍した図がセルB1を基点に作成されます。
セルA1を変更すると、隣の図も更新されます。
試してみてください。
|
|