Excel Datei Offline verfügbar machen
12.12.2013 08:43:02
Herbert
ich habe das Problem das ich ein Bild über VBA einfüge und dieses dann nur als Verknüpfung vorhanden ist.
Sub Bild_einfügen()
Dim WunschhöheCM As Double
Dim WunschbreiteCM As Double
Dim neueHöhe As Double
Dim neueBreite As Double
Dim bild As Variant
Dim org_höhe As Double
Dim org_breite As Double
WunschhöheCM = 6.28 'hier Zielhöhe in cm eingeben
'oder alternativ : WunschhöheCM = InputBox ("Welche Höhe soll das Bild haben?")
WunschbreiteCM = 12.6 'hier Zielbreite in cm eingeben
'oder alternativ : WunschbreiteCM = InputBox ("Welche Höhe soll das Bild haben?")
'Selektierung Zelle, ab der das Bild eingefügt werden soll
Range("D13").Select
'Öffnen des Bildes
bild = Application.GetOpenFilename("Bilddateien,*.*")
'Selektierung des Fotos mit anschließender Entsperrung des Seitenverhältnisses
ActiveSheet.Pictures.Insert(bild).Select
Selection.ShapeRange.LockAspectRatio = msoFalse
'Rahmen um das Bild
With Selection.ShapeRange.Line
.Visible = msoTrue
.ForeColor.ObjectThemeColor = msoThemeColorText1
.ForeColor.TintAndShade = 0
.ForeColor.Brightness = 0
End With
'Höhe des Bildes ändern
org_höhe = Selection.ShapeRange.Height
neueHöhe = Application.CentimetersToPoints(WunschhöheCM)
org_breite = Selection.ShapeRange.Width
neueBreite = Application.CentimetersToPoints(WunschbreiteCM)
Selection.ShapeRange.Height = neueHöhe
Selection.ShapeRange.Width = neueBreite
'Schriftblock "Initial situation" / "Better" in den Vordergrund bringen
ActiveSheet.Shapes.Range(Array("Rectangle 6")).Select
Selection.ShapeRange.ZOrder msoBringToFront
ActiveSheet.Shapes.Range(Array("Rectangle 7")).Select
Selection.ShapeRange.ZOrder msoBringToFront
Exit Sub
End Sub
Ich habe schon gelesen das Excel dort etwas geändert hat und man den Code entsprechend anpassen muss. Ich bin aus den Foreneinträgen leider nicht schlau geworden.
Da ich schon weit über 100 Bilder eingefügt habe und diese nicht nochmal einfügen möchte habe ich mir überlegt ob es die Möglichkeit gibt, einen Button einzufügen mit dem Namen "offline machen".
Oder gibt es in Excel eine Möglichkeit alle Bilder mit ins Dokument zu laden? Das würde auch ausreichen! Das Ziel ist das man das Dokument per e-mail verschicken kann.
Viele Grüße und danke für eure Hilfe im voraus
Herbert