{"id":954,"date":"2013-04-24T10:17:35","date_gmt":"2013-04-24T08:17:35","guid":{"rendered":"http:\/\/www.capri-soft.de\/blog\/?p=954"},"modified":"2013-04-24T10:30:59","modified_gmt":"2013-04-24T08:30:59","slug":"word-vba-alle-bilder-ole-objekte-automatisch-verkleinern","status":"publish","type":"post","link":"https:\/\/www.capri-soft.de\/blog\/?p=954","title":{"rendered":"Word VBA: Alle Bilder \/ OLE-Objekte automatisch verkleinern"},"content":{"rendered":"<h1>Problem<\/h1>\n<p>In einem Dokument sollen alle Bilder auf eine fixe Breite von 400 Bildpunkten im Seitenverh\u00e4ltnis verkleinert oder vergr\u00f6\u00dfert werden.<\/p>\n<h1>Ansatz<\/h1>\n<p>\u00dcber das Seitenverh\u00e4ltnis der <em>alten Gr\u00f6\u00dfe der Seite A <strong>(a)<\/strong><\/em> zur <em>neuen Gr\u00f6\u00dfe der Seite A <strong>(ax)<\/strong><\/em> l\u00e4sst sich die <strong>Aspect Ratio<\/strong> Verh\u00e4ltniszahl errechnen.<br \/>\nDiese Verh\u00e4ltniszahl kann mit der <em>Gr\u00f6\u00dfe der Seite B (b)<\/em> des Rechteckes multipliziert werden, um die <em>neue Gr\u00f6\u00dfe der Seite B <strong>(bx)<\/strong><\/em> zu ermittlen. <\/p>\n<p><img data-recalc-dims=\"1\" decoding=\"async\" src=\"https:\/\/i0.wp.com\/www.capri-soft.de\/blog\/wp-content\/uploads\/2013\/04\/rechteck.png?w=474&#038;ssl=1\"\/><\/p>\n<h1>L\u00f6sung<\/h1>\n<pre class=\"brush: jscript; title: ; notranslate\" title=\"\">\r\nSub bilderKleinerMachen()\r\n    &#039; By Bjoern Karpenstein\r\n    Dim s As InlineShape\r\n    \r\n    Dim aspectRatio As Double\r\n    \r\n    Dim newWidth As Integer\r\n    \r\n    newWidth = 400\r\n    \r\n    Dim i As Integer\r\n            \r\n    i = 1\r\n        \r\n    For Each s In ActiveDocument.InlineShapes\r\n        s.Select\r\n        If (s.Width &gt; newWidth) Then\r\n            If i &gt; 1 Then\r\n              aspectRatio = CDbl(newWidth) \/ CDbl(s.Width)\r\n              s.Width = newWidth\r\n              s.Height = CInt(s.Height * aspectRatio)\r\n            End If\r\n            i = i + 1\r\n        End If\r\n    Next\r\nEnd Sub\r\n<\/pre>\n<iframe src=\"http:\/\/www.facebook.com\/plugins\/like.php?href=https%3A%2F%2Fwww.capri-soft.de%2Fblog%2F%3Fp%3D954&amp;layout=standard&amp;show_faces=true&amp;width=450&amp;action=like&amp;colorscheme=light\" scrolling=\"no\" frameborder=\"0\" allowTransparency=\"true\" style=\"border:none; overflow:hidden; width:450px;margin-top:5px;\"><\/iframe>","protected":false},"excerpt":{"rendered":"<p>Problem In einem Dokument sollen alle Bilder auf eine fixe Breite von 400 Bildpunkten im Seitenverh\u00e4ltnis verkleinert oder vergr\u00f6\u00dfert werden. Ansatz \u00dcber das Seitenverh\u00e4ltnis der alten Gr\u00f6\u00dfe der Seite A (a) zur neuen Gr\u00f6\u00dfe der Seite A (ax) l\u00e4sst sich die Aspect Ratio Verh\u00e4ltniszahl errechnen. Diese Verh\u00e4ltniszahl kann mit der Gr\u00f6\u00dfe der Seite B (b) &hellip; <a href=\"https:\/\/www.capri-soft.de\/blog\/?p=954\" class=\"more-link\"><span class=\"screen-reader-text\">Word VBA: Alle Bilder \/ OLE-Objekte automatisch verkleinern<\/span> weiterlesen <span class=\"meta-nav\">&rarr;<\/span><\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_monsterinsights_skip_tracking":false,"_monsterinsights_sitenote_active":false,"_monsterinsights_sitenote_note":"","_monsterinsights_sitenote_category":0,"jetpack_post_was_ever_published":false,"_jetpack_newsletter_access":"","_jetpack_dont_email_post_to_subs":false,"_jetpack_newsletter_tier_id":0,"_jetpack_memberships_contains_paywalled_content":false,"_jetpack_memberships_contains_paid_content":false,"footnotes":"","jetpack_publicize_message":"","jetpack_publicize_feature_enabled":true,"jetpack_social_post_already_shared":false,"jetpack_social_options":{"image_generator_settings":{"template":"highway","default_image_id":0,"font":"","enabled":false},"version":2}},"categories":[12],"tags":[],"class_list":["post-954","post","type-post","status-publish","format-standard","hentry","category-vba"],"jetpack_publicize_connections":[],"jetpack_featured_media_url":"","jetpack_sharing_enabled":true,"jetpack_shortlink":"https:\/\/wp.me\/p4yGeN-fo","jetpack_likes_enabled":true,"jetpack-related-posts":[],"_links":{"self":[{"href":"https:\/\/www.capri-soft.de\/blog\/index.php?rest_route=\/wp\/v2\/posts\/954","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.capri-soft.de\/blog\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.capri-soft.de\/blog\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.capri-soft.de\/blog\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.capri-soft.de\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=954"}],"version-history":[{"count":2,"href":"https:\/\/www.capri-soft.de\/blog\/index.php?rest_route=\/wp\/v2\/posts\/954\/revisions"}],"predecessor-version":[{"id":957,"href":"https:\/\/www.capri-soft.de\/blog\/index.php?rest_route=\/wp\/v2\/posts\/954\/revisions\/957"}],"wp:attachment":[{"href":"https:\/\/www.capri-soft.de\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=954"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.capri-soft.de\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=954"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.capri-soft.de\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=954"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}