Bild in Zelle einfügen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi
da wirst du wohl ein kleines Makro benötigen:


Sub Bild_einfügen()
ActiveSheet.Unprotect Password:="DeinPasswort"
Dim Dat As String
Dim Zelle As Range
Dim ScaleA As Double
Set Zelle = Range("B10") 'hier wird das bild eingefügt
Dat = Application.GetOpenFilename(, , "Bild auswählen", , False)
Select Case Right(Dat, 3)
Case "bmp", "jpg", "tif", "gif"
ActiveSheet.Pictures.Insert(Dat).Select
With Selection.ShapeRange
.Top = Zelle.Top
.Left = Zelle.Left
ScaleA = WorksheetFunction.Min(Zelle.Width / .Width, Zelle.Height / .Height)
.Height = .Height * ScaleA
End With
Selection.Placement = xlMoveAndSize
Selection.PrintObject = True
Case Else
MsgBox "Sie haben kein gültiges Bild ausgewählt"
End Select
ActiveSheet.Protect Password:="DeinPasswort"
End Sub

das entsperren des Blattes und wiederherstellen des Schutzes wird vom Makro gleich miterledigt.
beim Starten des Makros öffnet sich ein Dialog zum Auswählend er Grafik und die Grafik wird in die Zelle B10 eingefügt.
Gruß, Daniel

Sub Bild_einfügen() Dim Zelle As Range Dim ScaleA As Double Set Zelle = Range("B10") 'hier wird das bild eingefügt If Application.Dialogs(xlDialogInsertPicture).Show Then ActiveSheet.Unprotect Password:="DeinPasswort" With Selection.ShapeRange .Top = Zelle.Top .Left = Zelle.Left ScaleA = WorksheetFunction.Min(Zelle.Width / .Width, Zelle.Height / .Height) .Height = .Height * ScaleA End With Selection.Placement = xlMoveAndSize Selection.PrintObject = True ActiveSheet.Protect Password:="DeinPasswort" End If End Sub

Hi
das Ausrichten des bildes geht relativ einfach, die neue Position rechnet sich so:
X1 : linke Ecke linke Zelle BA36
X2: linke Ecke der Zelle rechts neben der Rechten Ecke: BR36
B: Breite des Bildes(wenn B kleine als X2-X1 ist
X-Postition des Bilde = X1 + (X2-X1-B)/2
wie das im Makro umzusetzen ist, kannst du dir aus meinem Beispiel ableiten.
Wenn du das Bild über den Scanner einlesen kannst, weiß ich auch nicht.
aber gib mil im direktfenster folgendes ein:
Application.Dialogs( und drücke STRG+SPACE
jetzt sollten alle möglichen Exceldialoge aufgelistet werden, von denen du dir dann den aussuchen musst, der EINFÜGEN-GRAFIK-VON KAMERA entspricht.
diesen xlDialog...-Wert fügst du dann in die Klammer der
IF Application.Dialogs(...) then Zeilel ein.
Ich weiß leider auch nicht, welchen Wert man da nehemem muss und müsste selber suchen.
Gruß, Daniel

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Bild in Zelle einfügen

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread