亚马逊polly品牌推广WordPress博客发布音频版本

时间:2018-05-17 12:18:43

标签: wordpress amazon-web-services amazon-polly

我最近使用Amazon Polly插件配置了我的博客。它工作得很好。

但问题是它在音频播放器下显示'亚马逊波利的声音'。我该如何删除它?

您可以观察here.

注意:我正在使用AWS免费套餐。

1 个答案:

答案 0 :(得分:0)

该图像正在插入Polly插件中。

如果代码没有违反许可条款,您可以修改代码以将其删除。

请参阅:https://plugins.svn.wordpress.org/amazon-polly/trunk/public/class-amazonpolly-public.php

with worksheets(1)
    For i = 4 To lrow
        Select Case .Cells(i, 1).Value2
            Case "10EE"
                .Cells(i, "AX").Resize(1, 3) = .Cells(i, "AW").Resize(1, 3).Value2
                .Cells(i, "AW").ClearContents
            Case "05EE", "15EM"
                .Cells(i, "AY").Resize(1, 2) = .Cells(i, "M").Resize(1, 2).Value2
                .Cells(i, "M").Resize(1, 2).ClearContents
            Case "11EE", "25CP", "26EP", "51CL", "60PM"
                .Cells(i, "AY").Resize(1, 3) = .Cells(i, "L").Resize(1, 3).Value2
                .Cells(i, "L").Resize(1, 3).ClearContents
            Case "17EA"
                .Cells(i, "AY").Resize(1, 2) = .Cells(i, "X").Resize(1, 2).Value2
                .Cells(i, "X").Resize(1, 2).ClearContents
            Case "20DP"
                .Cells(i, "AY").Resize(1, 2) = .Cells(i, "AC").Resize(1, 2).Value2
                .Cells(i, "AC").Resize(1, 2).ClearContents
            Case "24AH"
                .Cells(i, "AY").Resize(1, 2) = .Cells(i, "AD").Resize(1, 2).Value2
                .Cells(i, "AD").Resize(1, 2).ClearContents
            Case "30EL"
                .Cells(i, "AY").Resize(1, 2) = .Cells(i, "V").Resize(1, 2).Value2
                .Cells(i, "V").Resize(1, 2).ClearContents
            Case "31EL"
                .Cells(i, "AY").Resize(1, 2) = .Cells(i, "O").Resize(1, 2).Value2
                .Cells(i, "O").Resize(1, 2).ClearContents
            Case "40DE"
                .Cells(i, "AY").Resize(1, 2) = .Cells(i, "R").Resize(1, 2).Value2
                .Cells(i, "R").Resize(1, 2).ClearContents
            Case "50CL"
                .Cells(i, "AY").Resize(1, 2) = .Cells(i, "AB").Resize(1, 2).Value2
                .Cells(i, "AB").Resize(1, 2).ClearContents
            Case Else
                'do nothing
        End Select
    Next i
end with