|
いつもお世話になってます。
久々に質問させて頂きます。
Excel2007で表示倍率が、100%だとうまく動作するのですが、
表示倍率を変えた状態で動作させると、テキストボックスの位置がずれてしまいます。
Sub test()
Dim xa, xb, ya, yb, xc, xd, yc, yd As Long
xa = Selection.Left '左端
xb = Selection.Width '幅
ya = Selection.Top '上端
yb = Selection.Height '高さ
ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, xa, ya, _
xb, yb).Select
Selection.Characters.Text = "test"
With Selection.Font
.Name = "MS Pゴシック"
.FontStyle = "標準"
.Size = 9
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 3
End With
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
'.ReadingOrder = xlContext
.Orientation = xlHorizontal
.AutoSize = False
.AddIndent = False
.ShapeRange.Fill.Visible = msoTrue
.ShapeRange.Fill.Solid
.ShapeRange.Fill.ForeColor.SchemeColor = 4
.ShapeRange.Fill.Transparency = 0.25
.ShapeRange.Line.Weight = 0.75
.ShapeRange.Line.DashStyle = msoLineSolid
.ShapeRange.Line.Style = msoLineSingle
.ShapeRange.Line.Transparency = 0#
.ShapeRange.Line.Visible = msoTrue
.ShapeRange.Line.ForeColor.SchemeColor = 64
.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
End With
End Sub
ずれを補正できるのでしょうか、
ご教授、よろしくお願いします。
|
|