🚀 go-pugleaf

Użytkownik "Diver" <lach@magma-net.pl> napisał w wiadomości 
news:cabc57a9-861a-4e68-b211-31b84e9e817e@l25g2000yqd.googlegroups.com...
On 31 Mar, 18:40, Jacek <a...@ola.pl> wrote:
>> Cos mi sie nie podoba takie rozwiazanie.

> No mnie też bo nie chce działać tak jak sobie to wymyślilem
> Jak to rozwiązać???

No chyba najprosciej to nazwac je po swojemu, zaraz po utworzeniu - wtedy 
zawsze beda mialy twoja nazwe...
np cos takiego (tylko po wklejeniu pewnie sie linie polamia):

Sub weryfikacja2()
Dim text1, text2 As String
Dim obj As OLEObject

On Error Resume Next
text1 = Sheets("Arkusz1").OLEObjects("txtPole1").Object.Value
text2 = Sheets("Arkusz1").OLEObjects("txtPole2").Object.Value

Sheets("Arkusz1").OLEObjects("txtPole1").Delete
Sheets("Arkusz1").OLEObjects("txtPole2").Delete


Set obj = Sheets("Arkusz1").OLEObjects.Add(ClassType:="Forms.TextBox.1", 
Link:=False, _
        DisplayAsIcon:=False, Left:=10.5, Top:=10, Width:=695, Height:=62)
obj.Name = "txtPole1"
obj.Object.Value = text1

Set obj = Sheets("Arkusz1").OLEObjects.Add(ClassType:="Forms.TextBox.1", 
Link:=False, _
        DisplayAsIcon:=False, Left:=10.5, Top:=100, Width:=695, Height:=62)
obj.Name = "txtPole2"
obj.Object.Value = text2

End Sub


Pozdrawiam
Michal