VBA anpassen für Bildschirmauflösung

Question

Zu meiner Erfahrung, Öffnen von Excel-Datei Bildobjekte enthalten, die auf eine Zelle nicht geschnappt werden neigen dazu, um zu verschieben, auf dem Computer abhängig, dass es in geöffnet wird.

ich mich gefragt, ob es ein Weg um diese Natur wie das Öffnen der Excel-Datei mit einem festgelegten Auflösungsparameter?

Meine Verwendung verwendet Bildschirmaufnahmen und Zellen, um das eingefügte Bild in den gewünschten Größen neu zu formatieren. Wie zum Beispiel:

dim rng as range 
set shtemp=worksheets.add 
Set rng = shtemp.[B14:Q49] 
rng.CopyPicture Appearance:=xlScreen, Format:=xlBitmap 

shtemp.Shapes("Picture 1").Delete 
Range("A1").Select 
ActiveSheet.Paste 
'Reset the altered cells to normal in order to maintain congruency in picture size alteration 
'This line is where I have to re-adjust cell settings to match the computer/screen I am using and capture the needed range. 
      Rows("49:49").RowHeight = 13.2 
      Columns("Q").ColumnWidth = 8.11 
Set r = Range("B5:T45") 
With Selection.ShapeRange 
     .LockAspectRatio = False 
     .Top = r.Top 
     .Left = r.Left 
     .Width = r.Width 
     .height = r.height 
    End With 

Answer 1

Versuchen Sie, dies zum Code hinzuzufügen. Er wählt einen Bereich aus, und der Zoom wird auf diesen Bereich eingestellt. Unabhängig von der Größe des Excel-Blattes passt die Palette in das Fenster. Spielen Sie mit der Bereichsgröße und dem Endbereich herum, um auf den richtigen Teil des Blattes zu fokussieren.

Range("A1:S1").Select 
ActiveWindow.Zoom = True 
Range("B5").Select