Thema Datum  Von Nutzer Rating
Antwort
22.12.2020 09:48:04 Firefox19
NotSolved
22.12.2020 12:34:47 Gast3443
NotSolved
22.12.2020 12:39:55 Gast92653
NotSolved
22.12.2020 13:58:38 Gast7911
NotSolved
22.12.2020 14:05:32 volti
NotSolved
Blau Bilder in einem Tabellenblatt zentriert im Bildschirm vergrößern
 22.12.2020 14:17:50 volti
NotSolved
22.12.2020 15:13:20 Gast38965
Solved

Ansicht des Beitrags:
Von:
volti		 Datum:
22.12.2020 14:17:50		 Views:
707		 Rating:
     
Antwort:
  Ja
Thema:
Bilder in einem Tabellenblatt zentriert im Bildschirm vergrößern

Hallo,

ein Update.

Man lernt nie aus. Mit der Anregung von Gast7911 geht's dann doch deutlich besser und kürzer.

Danke Gast.

Code:
 
01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32		  
Private Declare PtrSafe Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long

Sub GrossKlein()
  Dim vArr As Variant, Pty As Long, Ptx As Long
  Dim AC As Object, oVR As Object
  
  Const f As Single = 1.6        ' Vergößerungsfaktor
  
  With ActiveSheet.Shapes(Application.Caller)
    
     Set AC = ActiveWindow.ActivePane
     If .AlternativeText = "" Then
        .AlternativeText = .Left & ";" & .Top & ";" & .WIDTH & ";" & .HEIGHT
        .ScaleWidth f, msoFalse
        .ScaleHeight f, msoFalse
        .ZOrder msoBringToFront
        
        Set oVR = ActiveWindow.VisibleRange
        .Left = oVR.Left - .WIDTH / 2 + oVR.WIDTH / 2
        .Top = oVR.Top - .HEIGHT / 2 + oVR.HEIGHT / 2

     Else
        vArr = Split(.AlternativeText, ";")
        .Left = vArr(0):  .Top = vArr(1)
        .WIDTH = vArr(2): .HEIGHT = vArr(3)
        .AlternativeText = ""
     End If
     Ptx = AC.PointsToScreenPixelsX(.Left + (.WIDTH \ 2))
     Pty = AC.PointsToScreenPixelsY(.Top + (.HEIGHT \ 2))
     SetCursorPos Ptx, Pty
  End With
End Sub
 
_________
viele Grüße
Karl-Heinz

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
22.12.2020 09:48:04 Firefox19
NotSolved
22.12.2020 12:34:47 Gast3443
NotSolved
22.12.2020 12:39:55 Gast92653
NotSolved
22.12.2020 13:58:38 Gast7911
NotSolved
22.12.2020 14:05:32 volti
NotSolved
Blau Bilder in einem Tabellenblatt zentriert im Bildschirm vergrößern
 22.12.2020 14:17:50 volti
NotSolved
22.12.2020 15:13:20 Gast38965
Solved