Pertanyaan Word: Ubah Ukuran Gambar berdasarkan Persentase - Makro


Saya secara rutin menempelkan banyak tangkapan layar ke Microsoft Word 2007 dan kemudian harus mengubah ukurannya menjadi sekitar 75%, yang menjadi sangat membosankan.

Layar menangkap semua ukuran berbeda.

Saya sudah mencoba membuat makro untuk ini, tapi saya hanya bisa menulis makro yang akan mengubah ukuran gambar yang dipilih ke dimensi tertentu. Dan saya tidak bisa mendapatkan perekam makro untuk mengenali ukuran manual secara manual di jendela dokumen atau menggunakan dialog Ukuran.

Apakah mungkin untuk menulis makro yang akan mengubah ukuran gambar yang dipilih menjadi 75% dari ukuran saat ini?

Pertanyaan ini Mirip dengan saya, tetapi kebutuhan pengguna adalah untuk mengubah ukuran semua gambarnya ke ukuran yang sama. Saya perlu mengubah ukuran gambar yang memiliki tinggi / lebar semena-mena.

Saya juga terbuka untuk teknik yang akan menempelkan gambar pada ukuran yang lebih kecil untuk memulai.


7
2017-12-20 20:35


asal




Jawaban:


Salin kode ini ke modul di VBA Editor (Alt + F11) untuk dokumen Anda. Jika belum ada modul, Anda dapat memilih untuk menambahkan satu dari menu sisipkan.

    Sub PicResize()
     Dim PercentSize As Integer

     PercentSize = 75

     If Selection.InlineShapes.Count > 0 Then
         Selection.InlineShapes(1).ScaleHeight = PercentSize
         Selection.InlineShapes(1).ScaleWidth = PercentSize
     Else
         Selection.ShapeRange.ScaleHeight Factor:=(PercentSize / 100), _
           RelativeToOriginalSize:=msoCTrue
         Selection.ShapeRange.ScaleWidth Factor:=(PercentSize / 100), _
           RelativeToOriginalSize:=msoCTrue
     End If
 End Sub

Untuk menjalankan tekan makro ini Alt + F8, pilih PicResize dari daftar makro dan klik RUN. Anda juga dapat menetapkannya ke tombol di menu, jika Anda hanya ingin mengklik setiap kali untuk menjalankan makro.


8
2017-12-21 14:05



Terima kasih CharlieRB - Saya menghargai instruksi yang jelas. Saya hampir berhasil, tetapi setelah menjalankan makro, Word menjadi tidak stabil - saya tidak bisa lagi mengakses apa pun dari Ribbon atau menutup program. Dapatkah Anda memikirkan mengapa ini bisa terjadi? (Saya memeriksa untuk memastikan Windows XP / Office 2007 diperbarui sepenuhnya.) Terima kasih! - cantera25
Tidak yakin mengapa itu akan terjadi. Saya tidak punya masalah menjalankannya beberapa kali pada beberapa gambar sebelum saya mempostingnya untuk Anda. Kode harus baik-baik saja untuk Office 2007. Mungkin ingin reboot dan coba lagi. - CharlieRB
Masih mengalami masalah, tapi pasti ada sesuatu di ujung saya. Terima jawaban Anda - terima kasih lagi! Ini sudah menjadi masalah bagi saya cukup lama. - cantera25
Sama-sama. Senang untuk membantu. - CharlieRB
Makro ini baru saja menghemat waktu klik-klik saya. - Pierre Arnaud