Bild per Button einfügen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi,
das hat mal hajo gepostet, entweder dies:

Sub bild()
Dim dat
dat = Application.GetOpenFilename("Bilddateien (*.jpg), *.jpg")
If dat  False Then
' erstes Offset Pos. Links 0 Zeilen und eine Spalte nach rechts
' zweites Offset Pos. Oben 0 Zeilen tiefer und 0 Spalten nach rechts
With ActiveSheet.Shapes.AddPicture(dat, True, True, Range("C6").Offset(0, 0).Left, _
Range("C6").Offset(0, 0).Top, 150, 150)
.Name = "PIC " & Range("C6").Address(False, False)
End With
End If
End Sub

oder das:
Option Explicit

Sub bild()
Dim dat
ChDrive "C:\"
ChDir "C:\Users\Hajo_Zi\Desktop"
dat = Application.GetOpenFilename("Bilddateien (*.jpg), *.jpg")
If dat  False Then
' erstes Offset Pos. Links 0 Zeilen und eine Spalte nach rechts
' zweites Offset Pos. Oben 0 Zeilen tiefer und 0 Spalten nach rechts
With ActiveSheet.Shapes.AddPicture(dat, True, True, Range("C6").Offset(0, 0).Left, _
Range("C6").Offset(0, 0).Top, 150, 150)
.Name = "PIC " & Range("C6").Address(False, False)
End With
End If
End Sub

mfg Bernd

Sub insertPicture() Dim rng As Range Dim objPicture As Object Dim strFile As String strFile = Application.GetOpenFilename("Grafikdateien (*.jpg; *.gif; *.png)," & _ "*.jpg; *.gif; *.png") If strFile CStr(False) Then On Error Resume Next Set rng = Application.InputBox("Zielzelle wählen:", "Grafik einfügen", ActiveCell.Address, _ Type:=8) On Error GoTo 0 If Not rng Is Nothing Then Set objPicture = ActiveSheet.Pictures.Insert(strFile) objPicture.Top = rng(1, 1).Top objPicture.Left = rng(1, 1).Left End If End If Set rng = Nothing Set objPicture = Nothing End Sub

Sub InsertPicture() Dim sPicture As String, pic As Picture sPicture = Application.GetOpenFilename _ ("Pictures (*.gif; *.jpg; *.bmp; *.tif), *.gif; *.jpg; *.bmp; *.tif", _ , "Select Picture to Import") If sPicture = "False" Then Exit Sub Set pic = ActiveSheet.Pictures.Insert(sPicture) With pic .ShapeRange.LockAspectRatio = msoFalse .Height = ActiveCell.Height .Width = ActiveCell.Width .Top = ActiveCell.Top .Left = ActiveCell.Left .Placement = xlMoveAndSize End With Set pic = Nothing End Sub

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

37 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Bild per Button einfügen

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

37 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread