| |
こんばんは。
>フォントサイズは、文字の縦/横が全体的に大きくなったり小さくなったりしますが、例えば、横の大きさは変えず、縦の方向を二倍にすることはできますでしょうか？
>・・・やはり、フォントを作成して用意するしかありませか？？？
考え方は、りんさんと同じですが、カメラ機能を使うのはいかがですか？
新規ブックの標準モジュールに
'===============================================================
Sub sample()
Dim pic As Picture
With Range("a1")
.Font.Name = ""
.Font.Size = 18
.Value = "Ｅｘｃｅｌ ＶＢＡ"
.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を実行してみてください。
セルＡ１の内容を縦方向だけ２倍した図がセルＢ１を基点に作成されます。
セルＡ１を変更すると、隣の図も更新されます。
試してみてください。
|
|
ichinose
- 07/10/17(水) 21:44 -
