Bild aus Tabelle in Userform
11.02.2018 22:00:03
Guido
ich lauf grad vor die Wand und brauche Eure Hilfe. Die SuFu liefert mir zwar
Hier mein Code:
Private Sub btn_bild_Click()
'variablendeklaration
Dim intColWidth As Integer
Dim varPicpfad As Variant
'altes Bild löschen
On Error Resume Next
ActiveSheet.Shapes.Range(Array("charpic")).Delete
'Spalte 7 auf druckbaren bereich anpassen
'Platzbedarf Spalte 1-6
For i = 1 To 6
intColWidth = Columns(i).ColumnWidth + intColWidth
Next i
'Bei A4-Hochkant maximale Spaltenbreite = 79
Columns(7).ColumnWidth = 79 - intColWidth
'Bildauswählen
varPicpfad = Application.GetOpenFilename("")
'Bild in Tabelle einfügen
If Not varPicpfad = False Then
Cells(1, 7).Select
intColWidth = Columns(7).ColumnWidth
ActiveSheet.Pictures.Insert(varPicpfad).Select
Selection.ShapeRange.Width = intColWidth * 5
Selection.ShapeRange.IncrementLeft 2
With Selection.ShapeRange.Line
.Visible = msoTrue
.ForeColor.ObjectThemeColor = msoThemeColorText1
.ForeColor.TintAndShade = 0
.ForeColor.Brightness = 0
End With
Selection.ShapeRange.Name = "charpic"
Selection.Name = "charpic"
End If
'Bild in Userform importieren
'UserForm1.Image1.Picture = Tabelle1.Image1.Picture
Me.Image1.Picture = LoadPicture(Worksheets("Character").Cells(1, 7))
End Sub
Dateiupload geht nicht, weil die Datei über 300 KB gross ist.
Ich habe zwar schon erfahren, dass es sinnvoller sein soll, wenn ich über die Toolbox ein Bild in das Worksheets einfüge, aber ich bekomme das Objekt nicht befüllt :-(
Deshalb bin ich den anderen Weg gegangen.
Das Bild muss aus div. Gründen in der Datei gespeichert werden.
Kann mir jemand den Code evtl anpassen? Ich komm nicht weiter.
Danke Euch
Guido