Guardar imagen de un Din A4

Hola amigos:
Estoy intentando guardar una imagen de una ficha de cliente que tiene el
tamaño de un DINA4 y me sale un tanto distorsionada (primer problema),
ademas me gustaría que al guardarla lo hicier con el nombre del cliente que
esta registrado en la variable "nombreimagen" y no acierto a componer la
dirección correcta o mejor dicho me la archiva como "C:\IMAGENES DE FICHAS
DE CLIENTES\_&nombreimagen_&" y no como debería ser, que sería con el valor
de la variable "nombreimagen" que está cargada con el valor de la celda
C10... es decir, como ejemplo: "C:\IMAGENES DE FICHAS DE CLIENTES\Classyc,
S.L.", siendo "Classyc, S.L." el contenido de la variable "nombreimagen" en
esta ficha concreta, algo hago mal ...(segundo problema)
¿me podéis ayudar con los dos problemas?. He aqui el código:

GuardarImagen()
' GuardarImagen Macro
' Macro grabada el 15/07/2009 por hes040
'
' Acceso directo: Ctrl+Mayús+x
Dim choObj As ChartObject, chGráf As Chart, ptImagen As Object
Dim blnGuardado As Boolean
Dim nombreimagen As String

Worksheets("Reverso ficha").Range("A1:J73").CopyPicture
appearance:=xlScreen, Format:=xlPicture
nombreimagen = Range("C10").Value
'MsgBox prompt:=nombreimagen
Set choObj = ActiveSheet.ChartObjects.Add(0, 0, 800, 600)
Set chGráf = choObj.Chart

choObj.Activate
chGráf.ChartArea.Select
chGráf.Paste
Set ptImagen = chGráf.Pictures(1)

ptImagen.Left = 0
ptImagen.Top = 0

choObj.Border.LineStyle = xlNone
choObj.Width = ptImagen.Width + 7
choObj.Height = ptImagen.Height + 7

blnGuardado = chGráf.Export(Filename:="C:\IMAGENES DE FICHAS DE
CLIENTES\_&nombreimagen_&", filtername:="GIF")
If Not blnGuardado Then MsgBox prompt:="Problemas al guardar la
imagen.", Buttons:=vbOKOnly + vbExclamation
choObj.Delete

Set choObj = Nothing
Set chGráf = Nothing
Set ptImagen = Nothing
End Sub

Saludos
José Rafael-Valencia (España)