Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1052to1056
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
Inhaltsverzeichnis

Fotogrösse an Zellen anpassen per Makro

Fotogrösse an Zellen anpassen per Makro
25.02.2009 15:16:42
Florian
Hi,
habe eine Makro die .bmp-Dateien in ein Worksheet importiert. Leider ist die Grösse jrdesmal unterschiedlich. Kann ich die Bildgrösse eindeutig an den Zellrändern ausrichten (also z.B. Bild immer von Range "B2 - C5" (Äquivalent dem Benutzen der Alt-taste manuell)?
Danke,
Gruss Florian

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

Betreff
Datum
Anwender
Anzeige
AW: Fotogrösse an Zellen anpassen per Makro
25.02.2009 15:21:32
Daniel
Hi
normalerweise so:

'Postion
DeinBild.top = Range.("B2").top
DeinBild.Left= Range("B2").Left
'Grösse
DeinBild.Width = Range("B2:C5").Width
DeinBild.Height = Range("B2:C5").Heigth


Gruß, Daniel

Danke ;)
25.02.2009 20:15:45
Florian
Danke ;)
AW: Fotogrösse an Zellen anpassen per Makro
25.02.2009 15:22:49
Josef
Hallo Florian,
das geht zB. so.
' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub BildAnpassen(ByRef Bild As Shape, ByRef Bereich As Range)
  With Bild
    .LockAspectRatio = msoTrue
    .Width = Bereich.Width
  End With
End Sub


Sub test()
  BildAnpassen ActiveSheet.Shapes("Bild 1"), Range("B1:L1")
End Sub

Gruß Sepp

Anzeige

309 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige