excel - makro zum einfügen von fotos

Dieses Thema excel - makro zum einfügen von fotos im Forum "Microsoft Office Suite" wurde erstellt von hans jupp, 2. Okt. 2008.

Thema: excel - makro zum einfügen von fotos hallo, ich bin auf der suche nach einem makro, mit dem ich fotos in einer vorgegebenen größe in eine tabelle...

  1. 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 :)
     
  2. besteht alternativ die möglichkeit, trotz eingeschaltetem blattschutz, die fotogröße manuell (mit der maus) zu verändern?
     
  3. 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
    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 :)
     
  4. hallo matjes,

    der code funktioniert einwandfrei!

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

    gruß,
    kath.hundefriseursalon
     
Die Seite wird geladen...

excel - makro zum einfügen von fotos - Ähnliche Themen

Forum Datum
Excel VBA Makro zum suchen eines Textes und anschließend einen Breich zu kopieren Microsoft Office Suite 22. Jan. 2015
Excel VBA Makro zum suchen und markieren von Zeilen die ein bestimmtes Wort enthalten Microsoft Office Suite 16. Juni 2014
Excel: Makro ASCII verschieben Windows XP Forum 8. Nov. 2013
Makros und anderes - Excel Microsoft Office Suite 15. März 2013
Excel Sprungmarke mitten in ein anderes Makro Windows XP Forum 15. März 2012