|
▼奄美の初心者 さん:
こんにちは。
>シートにテキストボックスが2つあります。
>
>これをボタンを押したらシートの右端に移動させる。
この右端というのがあいまいですね!!
シートの右端ですから、IV列に図形を移動すると言うことですか?
ならば・・・、
'=====================================================================
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
こんなコードで可能です。
|
|