Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen

Excel Spaltenbreite

Betrifft: Excel Spaltenbreite von: hp
Geschrieben am: 21.09.2014 16:21:32

Liebes Forum,

auf meinem ersten Rechner ist bei Excel 2013 die Spaltenbreite 10.71/80 Pixel bei Calibri 11 als Standard-Schrift. Bei meinem zweiten Rechner ist bei genau derselben Schriftart/groesse die Spaltenbreite 8.09/96 Pixel. WARUM??

Habe schon alle moeglichen Seiten aufgesucht, finde aber keine Loesung wie ich die Spaltenbreite auf 10.71/80 Pixel einstellen kann, so dass sie auf beiden Rechnern identisch ist.

Bin am verzweifeln, hat jemand vielleicht eine Loesung?

Im Voraus schon mal vielen Dank!

hp

  

Betrifft: AW: Excel Spaltenbreite von: Hajo_Zi
Geschrieben am: 21.09.2014 16:23:08

ist die Bildschirmauflösung vielleicht anders?

GrußformelHomepage


  

Betrifft: AW: Excel Spaltenbreite von: hp
Geschrieben am: 21.09.2014 16:32:52

Lieber Hajo,

vielen Dank fuer die schnelle Rueckmeldung.

Auf dem ersten Rechner ist 1280x1024 und auf dem zweiten Rechner 1920x1080.
Das Problem ist, dass meine Vorlage die ich auf beiden Rechnern nutze dadurch zerschossen wird.
Die Datei erstellt auf Rechner A kann ich auf Rechner B nicht mehr weiter bearbeiten.
Eingefuegte Bilder sprengen den Rahmen oder werden schmaler, je nach Reihenfolge A-B oder B-A.

Was nun??

Herzliche Gruesse

hp


  

Betrifft: AW: Excel Spaltenbreite von: hp
Geschrieben am: 22.09.2014 06:25:01

Liebes Forum,

da aufgrund unterschiedlicher Spaltenbreiten auf verschiedenen Rechnern (bei selber Formatierung der Schriftgroesse/art) mein eingefuegtes Bild den Rahmen sprengt, gibt es die Moeglichkeit das Script so zu veraendern, dass das eingefuegte Bild permanent die Spaltebreite ueberprueft und sich automatisch an die Spaltenbreite anpasst (Ratio 4:3)??

Vielleicht koennte dies mein Problem loesen??

Private Sub CommandButton1_Click()
Dim dat
    dat = Application.GetOpenFilename("Bilddateien (*.jpg), *.jpg")
    If dat <> False Then
        With ActiveSheet.Shapes.AddPicture(dat, True, True, Range("C6").Offset(0, 0).Left, _
                Range("C6").Offset(0, 0).Top, 200, 150)
            .Name = "PIC " & Range("C6").Address(False, False)
        End With
    End If
End Sub



 

Beiträge aus den Excel-Beispielen zum Thema "Excel Spaltenbreite"