excel - makro zum einfügen von fotos

hans jupp · 02.10.2008

hallo,

ich bin auf der suche nach einem makro, mit dem ich fotos in einer vorgegebenen größe in eine tabelle übernehmen kann.

Sub foto_einfuegen()
ActiveSheet.Unprotect Password:=kennwort
Range(T7:AF19).Select
ActiveSheet.Pictures.Insert( _
C:\Dokumente und Einstellungen\user\Desktop\foto.jpg).Select , Width:=100, Height:=100
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:=kennwort
End Sub

leider funktioniert der bereich , Width:=100, Height:=100 nicht.

wie müßte der befehl richtig lauten?

vielen dank schonmal für eure hilfe

hans jupp · 02.10.2008

besteht alternativ die möglichkeit, trotz eingeschaltetem blattschutz, die fotogröße manuell (mit der maus) zu verändern?

Matjes · 02.10.2008

Hallo kath.hundefriseursalon,

erstmal zum Bildeinfügen mit Größenanderung:

Code:

Sub foto_einfuegen()
  Range(T7).Select
  ActiveSheet.Pictures.Insert(F:\xxxx.jpg).Select
  Selection.ShapeRange.LockAspectRatio = msoTrue->Sperrt das Bild gegen Verzerrung
  Selection.ShapeRange.Height = 100#-> ist ein double-Wert, deshalb #
 ->oder
  Selection.ShapeRange.Width = 100#-> ist ein double-Wert, deshalb #
End Sub

Code:

Sub foto_einfuegen_verzerrt()
  Range(T7).Select
  ActiveSheet.Pictures.Insert(F:\xxxx.jpg).Select
  Selection.ShapeRange.LockAspectRatio = msoFalse->Entsperrt das Bild für Verzerrung
  Selection.ShapeRange.Height = 100#-> ist ein double-Wert, deshalb #
  Selection.ShapeRange.Width = 200#-> ist ein double-Wert, deshalb #
End Sub

zu

besteht alternativ die möglichkeit, trotz eingeschaltetem blattschutz, die fotogröße manuell (mit der maus) zu verändern?

nur wenn der Blattschutz folgendermassen gesetzt ist:

Code:

 ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=True, Password:=kennwort

Dann läßt sich aber auch die Position verschieben.

Gruß Matjes

hans jupp · 06.10.2008

hallo matjes,

der code funktioniert einwandfrei!

vielen dank für deine mühe !!!

gruß,
kath.hundefriseursalon

excel - makro zum einfügen von fotos

hans jupp

hans jupp

Matjes

hans jupp

excel - makro zum einfügen von fotos

ANGEBOTE & SPONSOREN

Neueste Themen

Statistik des Forums