Imagen en Excel

[potypoty]

No he conseguido hacer el .exe y con la gente que he hablado dice que no le suena eso. A mí me suena que hace mucho hice algo que creo que era un .exe, pero no he sido capaz de sacarlo. Sin embargo aquí tienes un código que te ampliará la pantalla y tomará un aspecto similar al .exe.

La primera función restablece todas las herramientas que te gusta tener activas en excel. Se ejecuta justo antes de cerrar el archivo. De esta forma no te cambiará el aspecto de excel para futuros trabajos.
La segunda oculta: primero las columnas y las filas, las hojas y las barras de desplazamineto. Segundo oculta todas las barras de herramientas existentes en el archivo de excel. Yo te he puesto todas las que hay, pero tu puedes adaptarlo a tus necesidades. Si nunca tienes activa una barra, no hagas que te la oculte. Las dos últimas líneas son para ocultar el panel de tareas de inicio y la barra de fórmulas.

Cópiate este código en "ThisWorkbook"
Private Sub Workbook_BeforeClose(Cancel As Boolean)
With ActiveWindow
.DisplayHeadings = True
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
.DisplayWorkbookTabs = True
End With
Application.CommandBars("Standard").Visible = True
Application.CommandBars("Formatting").Visible = True
Application.CommandBars("Visual Basic").Visible = True
Application.CommandBars("Forms").Visible = True

Application.ShowStartupDialog = True
Application.DisplayFormulaBar = True
End Sub

Private Sub Workbook_Open()
With ActiveWindow
.DisplayHeadings = False
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.DisplayWorkbookTabs = False
End With
Application.CommandBars("Standard").Visible = False
Application.CommandBars("Formatting").Visible = False
Application.CommandBars("Formula Auditing").Visible = False
Application.CommandBars("Chart Menu Bar").Visible = True
Application.CommandBars("Worksheet Menu Bar").Visible = False
Application.CommandBars("Borders").Visible = False
Application.CommandBars("Compare Side by Side").Visible = False
Application.CommandBars("3-D Settings").Visible = False
Application.CommandBars("Shadow Settings").Visible = False
Application.CommandBars("Control Toolbox").Visible = False
Application.CommandBars("External Data").Visible = False
Application.CommandBars("Stop Recording").Visible = False
Application.CommandBars("Diagram").Visible = False
Application.CommandBars("Drawing").Visible = False
Application.CommandBars("Forms").Visible = False
Application.CommandBars("Chart").Visible = False
Application.CommandBars("Picture").Visible = False
Application.CommandBars("Drawing Canvas").Visible = False
Application.CommandBars("List").Visible = False
Application.CommandBars("Exit Design Mode").Visible = False
Application.CommandBars("Organization Chart").Visible = False
Application.CommandBars("Full Screen").Visible = False
Application.CommandBars("Protection").Visible = False
Application.CommandBars("Circular Reference").Visible = False
Application.CommandBars("Reviewing").Visible = False
Application.CommandBars("PivotTable").Visible = False
Application.CommandBars("Text To Speech").Visible = False
Application.CommandBars("Watch Window").Visible = False
Application.CommandBars("Visual Basic").Visible = False
Application.CommandBars("Web").Visible = False
Application.CommandBars("WordArt").Visible = False
Application.CommandBars("EuroValue").Visible = False
Application.CommandBars("Visual Basic").Visible = True

Application.ShowStartupDialog = False
Application.DisplayFormulaBar = False
End sub

Por otro lado, también puedes hacer un fullscreem con la opción de pantalla completa, pero aparece una ventanita de diálogo que en mi programa no me gustaría ver, aunque puede que te sirva.
El código para esta opción es:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayFullScreen = False
End Sub

Private Sub Workbook_Open()
Application.DisplayFullScreen = True
End sub

Intentaré conseguir lo del ejecutable, pero creo que con esto podrás ir tirando,¿no? Ya me dirás que tal te resulta la solución.