Step18:AMPのamp-imgにAlt属性とlayoutを追加しimg srcと置換える|Excel VBA

元のimg srcにAlt属性があれば、amp-imgに移します。さらにlayout=responsiveを追加し、最後にimg srcをReplaceを使用しamp-imgに置換えれば出来上がりです。

AMP変換ソフト作成 メニューへ

スポンサーリンク





VBAでimg srcからAlt部分を取り出す

追加したVBAです。
VBAでimg srcからAlt部分を取り出す

・alt=をinstrで検索します。
・見つかればalt部分全体を取り出します。
・layout=responsiveとaltを追加します。
・見つからなければlayout=responsiveだけを追加します。

これでamp-img全体が出来上がりました。
title属性などを使用している場合は、上と同様の方法で取り出します。

            n1 = InStr(n1, sUtfBuf, "alt=", vbTextCompare)
            If n1 > 0 Then
                n2 = InStr(n1 + 7, sUtfBuf, """", vbTextCompare)
                s2 = Mid(sUtfBuf, n1, n2 - n1 + 1)
                stag = stag & " layout=""responsive"" " & s2 & ">"
            Else
                stag = stag & " layout=""responsive"">"
            End If
            Debug.Print stag

VBAでimg srcをReplaceを使用しamp-imgに置換える

文字列置換のVBAです。
やり方は、これまでの削除するHTMLや変更するHTMLと同じです。
文字列置換のVBA

変更前のAltがあるmg srcです。
変更前のAltがあるmg src

変更後のamp-imgです。
width・Height・layoutが追加され、Altが移されています。
width・Height・layoutが追加され、Altが移されている

変更前のAltがないmg srcです。
変更前のAltがないmg src

変更後のamp-imgです。
変更後のamp-img

スポンサーリンク






AMP変換ソフト作成 メニューへ

■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します


Copyright (c) Excel-Excel ! All rights reserved