|
AA さん、こんばんわ。
>オートシェイプの幅と位置情報が全て同じになってしまいます。
行ごとに大きさと位置が変わるということでしょうか。
>Sub AA()
> Dim YOKOHABA As Long
> Dim TATEHABA As Long
> Dim YOKO As Long
> Dim TATE As Long
>
> Range("A2").Select
>
>
> Do Until ActiveCell.Value = ""
YOKOHABA = ActiveCell.Offset(0, 5).Value
TATEHABA = ActiveCell.Offset(0, 6).Value
YOKO = ActiveCell.Offset(0, 7).Value
TATE = ActiveCell.Offset(0, 8).Value
> ActiveSheet.Shapes.AddShape(msoShapeRectangle, YOKOHABA, TATEHABA, YOKO, TATE).Select
> Selection.Characters.Text = _
> ActiveCell.Offset(0, 0) & Chr(10) & ActiveCell.Offset(0, 1) & Chr(10) & ActiveCell.Offset(0, 2) & Chr(10) & ActiveCell.Offset(0, 3) & Chr(10) & ""
> With Selection.Characters(START:=1, Length:=58).Font
> .Name = "MS Pゴシック"
> .FontStyle = "標準"
> .Size = 11
> .Strikethrough = False
> .Superscript = False
> .Subscript = False
> .OutlineFont = False
> .Shadow = False
> .Underline = xlUnderlineStyleNone
> .ColorIndex = xlAutomatic
> End With
> ActiveCell.Offset(1, 0).Select
> Loop
>End Sub
|
|