ピクチャボックスの拡大表示 (ID:81815)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 自己レスです。 ピクチャボックス２にピクチャボックス１の文字を 拡大・縮小させるには、ピクチャボックス１の文字画像データを 正確に取得？する必要があったみたいです。 以下のようにすることでうまくできました。 どうもありがとうございました。 Private Sub Command1_Click() Text1.Text = "あいうえお" Picture1.Print Text1.Text With Picture1 P1W = .ScaleWidth P1H = .ScaleHeight End With With Picture2 P2W = P1W * 4 P2H = P1H * 4 Picture2.PaintPicture Picture1.Image, 0, 0, P2W, P2H End With End Sub