Excel VBA Bild in Hintergrund setzen

Alles rund um die Software-Entwicklung: Programme, Skripte, Projekte etc.
Antworten
Benutzeravatar
Burnett
Lt. Commander
Beiträge: 238
Registriert: 22.09.2004, 13:02
Wohnort: irgendwo in BaWü
Kontaktdaten:

Excel VBA Bild in Hintergrund setzen

Ungelesener Beitrag von Burnett » 11.11.2009, 22:50

Hallo Leute,

hab ein Makro gebastelt, welches ein Dialogfenster öffnet, indem ich ein Bild auswählen kann. Dieses lädt es dann in mein Excel-Sheet und passt erstens die Größe automatisch und zweitens die Position an. Das funktioniert wunderbar:

Code: Alles auswählen

Option Explicit

'Bild einfügen, welches eine definierte Größe bekommt
Sub GrafikFesteGrößeEinfügen()

Dim douWunschHoehe As Double
Dim douWunschBreite As Double
Dim douNeueHoehe As Double
Dim douNeueBreite As Double
Dim varBild As Variant
Dim org_höhe As Double, org_breite As Double



'hier Wunschhoehe in cm eintragen
douWunschHoehe = 23.9

'hier Wunschbreite angeben
douWunschBreite = 17.5

varBild = Application.GetOpenFilename("Bilddateien,*.*", MultiSelect:=False)

If varBild <> 0 Then

On Error GoTo fehlerbehandlung
ActiveSheet.Pictures.Insert(varBild).Select
Selection.ShapeRange.LockAspectRatio = msoFalse

On Error GoTo 0

org_höhe = Selection.ShapeRange.Height
org_breite = Selection.ShapeRange.Width

douNeueHoehe = Application.CentimetersToPoints(douWunschHoehe)
douNeueBreite = Application.CentimetersToPoints(douWunschBreite)
Selection.ShapeRange.Height = douNeueHoehe
Selection.ShapeRange.Width = douNeueBreite
Selection.Left = 0
Selection.Top = 0

End If
Exit Sub

'Fehlermeldung
fehlerbehandlung:
If Err.Number = 1004 Then MsgBox "Fehler beim Einfügen der Grafik!" _
& Chr(13) & Chr(13) & "Wahrscheinlich kein lesbares Grafikformat"
Exit Sub
End Sub



Nun will ich das Bild aber in den Hintergrund setzen, damit ich darüber in meine Zellen und Spalten einen Inhalt einfügen kann.
Kann mir da jemand weiterhelfen?

Gruß und Danke schonmal

Leviathan
Captain
Turtleboard Veteran
Turtleboard Veteran
Beiträge: 872
Registriert: 08.03.2004, 17:09
Wohnort: Kiel
Kontaktdaten:

Re: Excel VBA Bild in Hintergrund setzen

Ungelesener Beitrag von Leviathan » 12.11.2009, 12:01

Grad mal Google befragt, erster Treffer: http://www.mrexcel.com/archive/Formatting/22924.html
Das einfach mit dem Makro-Recorder aufnehmen und in deinen VBA-Code integrieren.

Antworten