Hilfe bzgl Makros
21.03.2015 13:47:22
ZGG
in einem excel sheet sollen duch mehrere schaltflächen bilder in vorgegeben rahmen eingefüght werden.
dazu have ich folgendes Makro geschrieben und pro schaltfläche kopiert..( Hier das beispiel für _ schaltfäche 4):
Sub InsertPic4()
Dim varBild As Variant
Dim objImg As Object
varBild = Application.GetOpenFilename(Title:="Bildauswahl!")
If varBild = False Then Exit Sub
With Tabelle1.Image4
.PictureSizeMode = fmPictureSizeModeStretch
.Object.Picture = LoadPicture(varBild)
End With
Application.SendKeys "{Enter}~"
Application.CommandBars.ExecuteMso "PicturesCompress"
End Sub
leider werden die bilder aber nur in Bitmap eingefügt, dadurch wird die exceldatei sehr groß. ich habe versucht die bilder entsprechend zu verkleinern aber das makro funkioniert nicht richtig.
könnt ihr mir entsprechend weiterhelfen?
Danke