Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
660to664
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
660to664
660to664
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Bild einfügen - funktioniert

Bild einfügen - funktioniert
06.09.2005 16:01:13
Anita
Hallo XL-Spezialisten!
Ich möchte ein BIld an einer bestimmten Stelle einfügen und dann zuschneiden.
Hab nun die ganze Zeit an meinem Code herumgefeilt.
Funktioniert aber nicht.
Kann mir jmd. den Fehler sagen oder einen alternativen COde sagen?
VIelen Dank an alle
Grüß Anita

Private Sub CommandButton1_Click()
Dim varRetVal As Variant
Dim n As Integer
Dim pic As Shape
Dim X_ As Integer, Y_ As Integer
varRetVal = Application.GetOpenFilename( _
FileFilter:="Bilddateien (*.jpg), *.jpg", _
Title:="Eine oder mehrere Dateien zum Öffnen auswählen", _
MultiSelect:=True)
If Not IsArray(varRetVal) And varRetVal = "Falsch" Then Exit Sub
X_ = 0   'links
Y_ = 0   'oben
For n = LBound(varRetVal) To UBound(varRetVal)
ActiveSheet.Pictures.Insert varRetVal(n)
Set pic = ActiveSheet.Shapes(ActiveSheet.Shapes.Count)
With pic
.LockAspectRatio = msoTrue
.Height = 318.75
.Width = 425.25
.Left = X_
.Top = Y_
End With
If X_ = 0 Then
X_ = 430
Else
X_ = 0
Y_ = Y_ + 385
End If
Next
End Sub

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bild einfügen - funktioniert
06.09.2005 16:47:38
Anita
-
AW: Bild einfügen - funktioniert
06.09.2005 18:13:54
GraFri
Hallo
Vielleicht hilft dir folgender Code weiter.


      
Option Explicit
Private Sub CommandButton1_Click()
  
Dim varRetVal As Variant
  
Dim n As Integer
  
  
Dim pic
  
Dim X_ As Integer, Y_ As Integer
  
  
  varRetVal = Application.GetOpenFilename( _
              FileFilter:="Bilddateien (*.jpg), *.jpg", _
              Title:="Eine oder mehrere Dateien zum Öffnen auswählen", _
              MultiSelect:=
True)
          
On Error Resume Next
If varRetVal <> False Then
          
    X_ = 0   
'links
    Y_ = 0   'oben

    
For n = LBound(varRetVal) To UBound(varRetVal)
      
      
Set pic = ActiveSheet.Pictures.Insert(varRetVal(n))
   
      
With pic
          .LockAspectRatio = msoTrue
          .Height = 318.75
          .Width = 425.25
          .Left = X_
          .Top = Y_
      
End With
      
      
If X_ = 0 Then
          X_ = 430
      
Else
          X_ = 0
          Y_ = Y_ + 385
      
End If
         
   
Next n 


Bei weiteren Fragen einfach melden.
mfg, GraFri
Anzeige
Upps - hier der ganze Code
06.09.2005 18:17:39
GraFri
Hallo
Bild wird aber gestreckt, und nicht zugeschnitten.


      
Option Explicit
Private Sub CommandButton1_Click()
  
Dim varRetVal As Variant
  
Dim n As Integer
  
  
Dim pic
  
Dim X_ As Integer, Y_ As Integer
  
  
  varRetVal = Application.GetOpenFilename( _
              FileFilter:="Bilddateien (*.jpg), *.jpg", _
              Title:="Eine oder mehrere Dateien zum Öffnen auswählen", _
              MultiSelect:=
True)
          
On Error Resume Next
If varRetVal <> False Then
          
    X_ = 0   
'links
    Y_ = 0   'oben

    
For n = LBound(varRetVal) To UBound(varRetVal)
      
      
Set pic = ActiveSheet.Pictures.Insert(varRetVal(n))
   
      
With pic
          .LockAspectRatio = msoTrue
          .Height = 318.75
          .Width = 425.25
          .Left = X_
          .Top = Y_
      
End With
      
      
If X_ = 0 Then
          X_ = 430
      
Else
          X_ = 0
          Y_ = Y_ + 385
      
End If
         
   
Next n
    
End If
End Sub
 


mfg, GraFri
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige