Estirar texto en celda

[matiuru]

Tengo una celda D5 cuya formula es =C1.

En la Celda C1 introduzco el texto y quiero que en D5 aparezca lo mismo pero con el texto estirado, o sea que se ajuste al tamaño de la celda, ya sea en ancho como en alto y no haya margenes.

El objetivo de esto es que en C2 la fuente sea la de Codigo de Barras, pero quiero que siempre los codigos tengan el mismo tamaño.

Adjunto archivo, el cual tiene la fuente especifica de codigo de barras, pero creo que lograndolo con cualquier fuente es lo mismo.

Aclaro que esta forma de hacerlo es la que se me ocurrió, si existe otra forma dentro de excel para hacerlo, sientanse libres de modificar todo. Gracias por la ayuda.-

EJEMPLO.xls

[Antoni]

.

Hablas de la celda C2, pero en el adjunto el dato está en la C1.

Private Sub Worksheet_Change(ByVal Target As Range)

   If Target.Address = "$C$1" Then '<======================

      Range("5:5").EntireRow.AutoFit

      Range("D:D").EntireColumn.AutoFit

   End If

End Sub

[/CODE]

[matiuru]

Tengo conocimientos muy basicos en esto, pongo crear macro dentro del excel pero me sale este error que adjunto

[matiuru]

Además creo que por lo que veo de la macro que sugieres, lo que está haciendo es ajustar la celda al texto, y yo planteo estirar el texto al tamaño de la celda.