dimensionare una casella di testo

Hai un problema con Excel?

Nuova discussione

dimensionare una casella di testo
di Niko (utente non iscritto) data: 24/01/2014 10:44:50
Ho la necessità di creare una macro per posizionare e ridimensionare in modo diverso una casella di testo che ho copiato da un'altro file, il tutto (se è possibile) dandogli delle coordinate precise.

Grazie

di LucaS. (utente non iscritto) data: 24/01/2014 12:22:58
Questo cerca nel tuo foglio gli elementi che contengono nel nome "Text" (le caselle di testo sono textbox), mette come altezza e larghezza 90 e le posizione in corrispondenza della cella C5 (modifica il valore e la cella a tuo piacere).
Il problema è che se esistono più caselle di testo vengono spostate tutte.

Sub sposta_casellatesto()
For i = 1 To Shapes.Count
    If InStr(1, Shapes(i).Name, "Text", vbTextCompare) > 0 Then
        Shapes(i).Height = 90
        Shapes(i).Width = 90
        Shapes(i).Left = Range("c5").Left
        Shapes(i).Top = Range("c5").Top
    End If
Next
End Sub

di Niko (utente non iscritto) data: 24/01/2014 12:27:54
Mi va bene così.
Grazie Luca
di Niko (utente non iscritto) data: 24/01/2014 13:54:57
risolto

Vuoi Approfondire?