| |
▼奄美の初心者 さん：
こんにちは。
>シートにテキストボックスが２つあります。
>
>これをボタンを押したらシートの右端に移動させる。
この右端というのがあいまいですね！！
シートの右端ですから、ＩＶ列に図形を移動すると言うことですか？
ならば・・・、
'=====================================================================
Sub test()
Call text_move(ActiveSheet.Shapes("Text Box 1"))
End Sub
'=================================================================
Sub text_move(txt As Shape)
Dim rng As Range
Dim rr As Double
With txt
If txt.AlternativeText = "" Then
.AlternativeText = CStr(.Left)
With .Parent
Set rng = .Cells(1, .Columns.Count)
End With
rr = rng.Left + rng.Width
.Left = rr - .Width
Else
.Left = CDbl(.AlternativeText)
.AlternativeText = ""
End If
End With
End Sub
こんなコードで可能です。
|
|
ichinose
- 06/3/12(日) 10:53 -
