Π£Π²Π΅Π»ΠΈΡΠ΅Π½ΠΈΠ΅ ΠΊΠ°ΡΡΠΈΠ½ΠΎΠΊ ΠΏΠΎ ΡΠ΅Π»ΡΠΊΡ ΠΌΡΡΠΈ
ΠΠ°ΠΊΡΠΎΡ ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ ΡΠ²Π΅Π»ΠΈΡΠΈΠ²Π°ΡΡ / ΡΠΌΠ΅Π½ΡΡΠ°ΡΡ ΠΈΠ·ΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΡ Π½Π° Π»ΠΈΡΡΠ΅ Excel ΠΏΠΎ ΡΠ΅Π»ΡΠΊΡ ΠΌΡΡΠΈ.
ΠΠ»Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΡ ΠΌΠ°ΠΊΡΠΎΡΠ°, ΡΠΊΠΎΠΏΠΈΡΡΠΉΡΠ΅ Π² ΡΠ²ΠΎΠΉ ΡΠ°ΠΉΠ» ΠΌΠΎΠ΄ΡΠ»Ρ Ρ ΠΊΠΎΠ΄ΠΎΠΌ (ΠΏΡΠΎΡΡΠΎ ΠΏΠ΅ΡΠ΅ΡΠ°ΡΠΈΠ² Π΅Π³ΠΎ ΠΌΡΡΠΊΠΎΠΉ ΠΈΠ· ΠΏΡΠΈΠΊΡΠ΅ΠΏΠ»ΡΠ½Π½ΠΎΠ³ΠΎ ΡΠ°ΠΉΠ»Π°),
Π²ΡΠ΄Π΅Π»ΠΈΡΠ΅ Π²ΡΠ΅ ΠΊΠ°ΡΡΠΈΠ½ΠΊΠΈ Π² ΡΠ²ΠΎΡΠΌ ΡΠ°ΠΉΠ»Π΅ Excel, ΠΈ Π½Π°Π·Π½Π°ΡΡΡΠ΅ ΠΈΠΌ ΠΌΠ°ΠΊΡΠΎΡ ZoomImage
Π§ΡΠΎΠ±Ρ Π²ΡΠ΄Π΅Π»ΠΈΡΡ Π²ΡΠ΅ ΠΈΠ·ΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΡ, ΠΏΡΠΎΠ΄Π΅Π»Π°ΠΉΡΠ΅ ΡΠ»Π΅Π΄ΡΡΡΠ΅Π΅:
- Π½Π°ΠΆΠΌΠΈΡΠ΅ Ctrl + G (Π΄Π»Ρ ΠΏΠΎΡΠ²Π»Π΅Π½ΠΈΡ Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΠΎΠ³ΠΎ ΠΎΠΊΠ½Π° Β«ΠΠ΅ΡΠ΅Ρ ΠΎΠ΄Β»)
- Π½Π°ΠΆΠΌΠΈΡΠ΅ ΠΊΠ½ΠΎΠΏΠΊΡ Β«ΠΡΠ΄Π΅Π»ΠΈΡΡΒ» Π² ΡΡΠΎΠΌ Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠΌ ΠΎΠΊΠ½Π΅
- Π² ΠΏΠΎΡΠ²ΠΈΠ²ΡΠ΅ΠΌΡΡ ΠΎΠΊΠ½Π΅ Β«ΠΡΠ΄Π΅Π»Π΅Π½ΠΈΠ΅ Π³ΡΡΠΏΠΏΡ ΡΡΠ΅Π΅ΠΊΒ» ΠΏΠΎΡΡΠ°Π²ΡΡΠ΅ Π³Π°Π»ΠΎΡΠΊΡ Β«ΠΠ±ΡΠ΅ΠΊΡΡΒ», ΠΈ Π½Π°ΠΆΠΌΠΈΡΠ΅ OK
ΠΠΎΡΠ»Π΅ ΡΡΠΎΠ³ΠΎ (ΠΊΠ°ΠΊ Π²ΡΠ΅ ΠΊΠ°ΡΡΠΈΠ½ΠΊΠΈ Π±ΡΠ΄ΡΡ Π²ΡΠ΄Π΅Π»Π΅Π½Ρ), ΡΠ΅Π»ΠΊΠ½ΠΈΡΠ΅ Π½Π° ΠΎΠ΄Π½ΠΎΠΉ ΠΈΠ· ΠΊΠ°ΡΡΠΈΠ½ΠΎΠΊ ΠΏΡΠ°Π²ΠΎΠΉ ΠΊΠ½ΠΎΠΏΠΊΠΎΠΉ ΠΌΡΡΠΈ,
Π² ΠΊΠΎΠ½ΡΠ΅ΠΊΡΡΠ½ΠΎΠΌ ΠΌΠ΅Π½Ρ Π½Π°ΠΆΠΌΠΈΡΠ΅ Β«ΠΠ°Π·Π½Π°ΡΠΈΡΡ ΠΌΠ°ΠΊΡΠΎΡΒ», Π²ΡΠ΄Π΅Π»ΠΈΡΠ΅ ΠΌΠ°ΠΊΡΠΎΡ ZoomImage, ΠΈ Π½Π°ΠΆΠΌΠΈΡΠ΅ OK
ΠΡΠΈ ΡΠ΅Π»ΡΠΊΠ΅ Π½Π° ΠΊΠ°ΡΡΠΈΠ½ΠΊΠ΅, ΠΌΠ°ΠΊΡΠΎΡ ΠΏΠ»Π°Π²Π½ΠΎ ΡΠ²Π΅Π»ΠΈΡΠΈΠ²Π°Π΅Ρ ΠΊΠ°ΡΡΠΈΠ½ΠΊΡ Π² 3 ΡΠ°Π·Π°, ΠΏΠΎΠΏΡΡΠ½ΠΎ ΠΏΠ΅ΡΠ΅ΠΌΠ΅ΡΠ°Ρ Π΅Ρ Π² ΡΠ΅Π½ΡΡ ΡΠΊΡΠ°Π½Π°
ΠΠ»Ρ ΡΠ²Π΅Π»ΠΈΡΠ΅Π½ΠΈΡ ΡΠΎΠ·Π΄Π°ΡΡΡΡ ΠΊΠΎΠΏΠΈΡ ΠΈΡΡ
ΠΎΠ΄Π½ΠΎΠΉ ΠΊΠ°ΡΡΠΈΠ½ΠΊΠΈ.
ΠΡΠΈ ΡΠ΅Π»ΡΠΊΠ΅ Π½Π° ΡΠ²Π΅Π»ΠΈΡΠ΅Π½Π½ΠΎΠΉ ΠΊΠ°ΡΡΠΈΠ½ΠΊΠ΅, ΠΎΠ½Π° ΠΏΠ»Π°Π²Π½ΠΎ ΡΠΌΠ΅Π½ΡΡΠ°Π΅ΡΡΡ Π² ΡΠ°Π·ΠΌΠ΅ΡΠ°Ρ
, ΠΏΠΎΡΠ»Π΅ ΡΠ΅Π³ΠΎ ΡΠ΄Π°Π»ΡΠ΅ΡΡΡ.
ΠΠΎΠ΄ ΠΌΠ°ΠΊΡΠΎΡΠ° ZoomImage:
Sub ZoomImage() ' ΠΠ°ΠΊΡΠΎΡ Π΄Π»Ρ ΡΠ²Π΅Π»ΠΈΡΠ΅Π½ΠΈΡ / ΡΠΌΠ΅Π½ΡΡΠ΅Π½ΠΈΡ ΠΊΠ°ΡΡΠΈΠ½ΠΎΠΊ Π² Excel, ΠΏΠΎ ΡΠ΅Π»ΡΠΊΡ Π½Π° Π½ΠΈΡ ' Β© 2013 EducatedFool ExcelVBA.ru/code/ZoomImages Const ZOOM_RATIO# = 3 ' ΠΊΠΎΡΡΡΠΈΡΠΈΠ΅Π½Ρ ΡΠ²Π΅Π»ΠΈΡΠ΅Π½ΠΈΡ ΠΈΠ·ΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΡ Const STEPS_COUNT& = 20 ' ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ ΠΏΡΠΎΠΌΠ΅ΠΆΡΡΠΎΡΠ½ΡΡ ΡΠ°Π³ΠΎΠ² ΠΏΡΠΈ ΡΠ²Π΅Π»ΠΈΡΠ΅Π½ΠΈΠΈ Const ZOOM_SPEED# = 2 ' ΡΠΊΠΎΡΠΎΡΡΡ ΡΠ²Π΅Π»ΠΈΡΠ΅Π½ΠΈΡ / ΡΠΌΠ΅Π½ΡΡΠ΅Π½ΠΈΡ ΠΊΠ°ΡΡΠΈΠ½ΠΊΠΈ ( ΠΎΡ 0 Π΄ΠΎ 10) On Error Resume Next: Err.Clear: Dim sha As Shape, s_sha As Shape, i& Set s_sha = ActiveSheet.Shapes(Application.Caller) If Err Then Exit Sub ' Π²ΡΡ ΠΎΠ΄, Π΅ΡΠ»ΠΈ ΠΌΠ°ΠΊΡΠΎΡ Π²ΡΠ·Π²Π°Π½ Π½Π΅ ΡΠ΅Π»ΡΠΊΠΎΠΌ Π½Π° ΠΊΠ°ΡΡΠΈΠ½ΠΊΠ΅ If s_sha.Name Like "BigImage_*" Then ' ΡΠ΅Π»ΡΠΎΠΊ Π½Π° ΡΠ²Π΅Π»ΠΈΡΠ΅Π½Π½ΠΎΠΉ ΠΊΠ°ΡΡΠΈΠ½ΠΊΠ΅ With s_sha cx1# = .Left + .Width / 2: cy1# = .Top + .Height / 2 dw# = .Width / STEPS_COUNT& dt# = ZOOM_SPEED# / 50 / STEPS_COUNT& For i& = 1 To STEPS_COUNT& ' Π² ΡΠΈΠΊΠ»Π΅ ΡΠΌΠ΅Π½ΡΡΠ°Π΅ΠΌ ΠΊΠ°ΡΡΠΈΠ½ΠΊΡ t = Timer: .(adsbygoogle = window.adsbygoogle || []).push({});