Billede ved opstart af regneark

Prøv dette link
http://www.j-walk.com/ss/excel/tips/tip39.htm

eller søg på google efter splash screen excel

Private Sub Workbook_Open()
ActiveSheet.Pictures.Insert("C:\WINDOWS\Prærievind.bmp").Select
Application.Wait Now + TimeValue("00:00:10")
ActiveSheet.Shapes("Picture 1").Select
Selection.Delete
End Sub

Excelent.
Det var faktisk lige det jeg ledte efter, Mange tak.
Jeg mangler bare et kunne flytte billedet så det ikke ligger oppe i højre hjørne. Har du lige et hurtigt tip til det?

Hvordan giver afleverer man points?

P.S
Bak... Tak for linket, der var da lidt at arbejde med :)

ActiveSheet.Shapes("Picture 1").Select
Selection.ShapeRange.IncrementLeft -122# ' prøv dig frem til det rette tal
Selection.ShapeRange.IncrementTop -24# ' ----------""---------------

velbekom.
marker box med mit navn, og klik accepter


her til at justere størrelsen:

Selection.ShapeRange.ScaleWidth 2.22, msoFalse, msoScaleFromBottomRight
Selection.ShapeRange.ScaleHeight 2.22, msoFalse, msoScaleFromBottomRight
Selection.ShapeRange.ScaleWidth 1.46, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 1.46, msoFalse, msoScaleFromTopLeft

Selection.ShapeRange.IncrementTop 160.5 ' flytter billede ned

Mange tak for hjælpen :)

kan man lade logoet vaere gemt i excel og ikke paa hardisken, eller lade logo stamme fra en internetside?

hvis du har billede i ark2:

Private Sub Workbook_Open()
Sheets("Ark2").Select
ActiveSheet.Shapes("Picture 1").Select
Selection.Copy
Sheets("Ark1").Select
Range("A1").Select
ActiveSheet.Paste
Application.Wait Now + TimeValue("00:00:10")
Selection.Delete
End Sub