{"id":10862,"date":"2018-09-10T12:00:09","date_gmt":"2018-09-10T03:00:09","guid":{"rendered":"https:\/\/www.ka-net.org\/blog\/?p=10862"},"modified":"2018-09-10T15:02:25","modified_gmt":"2018-09-10T06:02:25","slug":"%e4%bb%a3%e6%9b%bf%e3%83%86%e3%82%ad%e3%82%b9%e3%83%88%e3%82%92%e5%89%8a%e9%99%a4%e3%81%99%e3%82%8bpowerpoint%e3%83%9e%e3%82%af%e3%83%ad","status":"publish","type":"post","link":"https:\/\/www.ka-net.org\/blog\/?p=10862","title":{"rendered":"\u4ee3\u66ff\u30c6\u30ad\u30b9\u30c8\u3092\u524a\u9664\u3059\u308bPowerPoint\u30de\u30af\u30ed"},"content":{"rendered":"

PowerPoint\u306e\u56f3\u3084SmartArt\u3001\u30b0\u30eb\u30fc\u30d7\u3084\u30b0\u30e9\u30d5\u3068\u3044\u3063\u305f\u8996\u899a\u7684\u306a\u30b3\u30f3\u30c6\u30f3\u30c4\u306b\u306f\u3001\u753b\u9762\u3092\u898b\u308b\u3053\u3068\u304c\u3067\u304d\u306a\u3044\u30e6\u30fc\u30b6\u30fc\u5411\u3051\u306b\u3001\u305d\u306e\u30b3\u30f3\u30c6\u30f3\u30c4\u304c\u4f55\u306a\u306e\u304b\u3092\u793a\u3059\u300c\u4ee3\u66ff\u30c6\u30ad\u30b9\u30c8<\/span>\u300d(AlternativeText, alt text)\u3092\u8a2d\u5b9a\u3059\u308b\u3053\u3068\u304c\u3067\u304d\u307e\u3059\u3002<\/p>\n

PDF\u306b\u5909\u63db\u3059\u308b\u3068\u304d\u7b49\u3001\u3053\u306e\u4ee3\u66ff\u30c6\u30ad\u30b9\u30c8\u3092\u6b8b\u3057\u3066\u304a\u304d\u305f\u304f\u306a\u3044\u5834\u5408\u3082\u3042\u308b\u306e\u3067\u3001\u4e00\u62ec\u524a\u9664\u3059\u308b\u30de\u30af\u30ed\u3092\u66f8\u3044\u3066\u307f\u307e\u3057\u305f\u3002<\/p>\n

\"\"<\/a><\/p>\n

Option Explicit\r\n\r\nPublic Sub DelAllAltText()\r\n'\u4ee3\u66ff\u30c6\u30ad\u30b9\u30c8\u3092\u4e00\u62ec\u524a\u9664\r\n  Dim prs As PowerPoint.Presentation\r\n  Dim sld As PowerPoint.Slide\r\n  Dim shp As PowerPoint.Shape\r\n  Dim tmp As PowerPoint.PpViewType\r\n  \r\n  Set prs = ActivePresentation\r\n  \r\n  '\u8868\u793a\u30e2\u30fc\u30c9\u3092\u300c\u6a19\u6e96\u300d\u306b\u3057\u3066\u51e6\u7406\u5b9f\u884c\r\n  If SlideShowWindows.Count > 0 Then _\r\n    prs.SlideShowWindow.View.Exit '\u30b9\u30e9\u30a4\u30c9\u30b7\u30e7\u30fc\u8868\u793a\u306b\u306a\u3063\u3066\u3044\u305f\u3089\u89e3\u9664\r\n  With ActiveWindow\r\n    tmp = .ViewType '\u30a6\u30a3\u30f3\u30c9\u30a6\u306e\u8868\u793a\u30e2\u30fc\u30c9\u8a18\u61b6\r\n    .ViewType = ppViewNormal\r\n  End With\r\n  \r\n  For Each sld In prs.Slides\r\n    For Each shp In sld.Shapes\r\n      DelAltText shp\r\n    Next\r\n  Next\r\n  \r\n  ActiveWindow.ViewType = tmp '\u30a6\u30a3\u30f3\u30c9\u30a6\u306e\u8868\u793a\u30e2\u30fc\u30c9\u3092\u5143\u306b\u623b\u3059\r\n  MsgBox "\u51e6\u7406\u304c\u7d42\u4e86\u3057\u307e\u3057\u305f\u3002", vbInformation + vbSystemModal\r\nEnd Sub\r\n\r\nPrivate Sub DelAltText(ByVal TargetShape As PowerPoint.Shape)\r\n'\u4ee3\u66ff\u30c6\u30ad\u30b9\u30c8\u306e\u524a\u9664\r\n  Dim grpShps As PowerPoint.GroupShapes\r\n  Dim shp As PowerPoint.Shape\r\n  \r\n  On Error Resume Next\r\n  Set grpShps = TargetShape.GroupItems\r\n  On Error GoTo 0\r\n  If grpShps Is Nothing Then\r\n    If Len(Trim(TargetShape.AlternativeText)) > 0 Then\r\n      TargetShape.AlternativeText = ""\r\n    End If\r\n    If Len(Trim(TargetShape.Title)) > 0 Then\r\n      TargetShape.Title = ""\r\n    End If\r\n  Else\r\n    For Each shp In grpShps\r\n      DelAltText shp\r\n    Next\r\n  End If\r\nEnd Sub<\/pre>\n
\u4e0a\u8a18\u30de\u30af\u30ed\u3092\u5b9f\u884c\u3059\u308b\u3068\u3001\u3059\u3079\u3066\u306e\u30b9\u30e9\u30a4\u30c9\u4e0a\u306b\u3042\u308b\u56f3\u3001SmartArt\u3001\u30b0\u30eb\u30fc\u30d7\u3001\u30b0\u30e9\u30d5\u3001\u57cb\u3081\u8fbc\u307f\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3001\u30d3\u30c7\u30aa\u3068\u3044\u3063\u305f\u30b3\u30f3\u30c6\u30f3\u30c4\u304b\u3089\u3001\u4ee3\u66ff\u30c6\u30ad\u30b9\u30c8\u3092\u524a\u9664\u3057\u307e\u3059\u3002<\/p>\n
\"\"<\/a><\/p>\n
\u540c\u69d8\u306e\u30de\u30af\u30ed\u306f\u4e0b\u8a18\u30b5\u30a4\u30c8\u3067\u3082\u3059\u3067\u306b\u53d6\u308a\u4e0a\u3052\u3089\u308c\u3066\u3044\u307e\u3059\u3002<\/p>\n
\"\"<\/div>
www.relief.jp<\/div><\/div>
\"\"<\/figure>
https:\/\/www.relief.jp\/docs\/powerpoint-macro-remove-alternative-text.html<\/div>
https:\/\/www.relief.jp\/docs\/powerpoint-macro-remove-alternative-text.html<\/strike><\/div><\/div>
<\/div><\/div><\/div><\/div><\/div>\n
\"\"<\/div>
\u3064\u307c\u30ed\u30b0\u3002 | \u6a2a\u6d5c\u3067\u7ffb\u8a33\u696d\u52d9\u3092\u884c\u3046\u30b7\u30fc\u30d6\u30ec\u30a4\u30f3\u30b9\u30bf\u30c3\u30d5\u306b\u3088\u308b\u6280\u8853\u60c5\u5831\u30d6\u30ed\u30b0<\/div><\/div>
\"\"<\/figure>
\u753b\u50cf\u306e\u4ee3\u66ff\u30c6\u30ad\u30b9\u30c8\u3092\u4e00\u62ec\u3067\u524a\u9664\u3059\u308bPowerPoint\u30de\u30af\u30ed | \u3064\u307c\u30ed\u30b0\u3002 | \u6a2a\u6d5c\u3067\u7ffb\u8a33...<\/div>
http:\/\/tsubolog.c-brains.jp\/15\/05\/14-100000.php<\/div>
\u753b\u50cf\u306e\u4ee3\u66ff\u30c6\u30ad\u30b9\u30c8\u3092\u4e00\u62ec\u3067\u524a\u9664\u3059\u308bPowerPoint\u30de\u30af\u30ed\u306e\u3054\u7d39\u4ecb\u3067\u3059\u3002<\/div><\/div>
<\/div><\/div><\/a><\/div><\/div>\n
\n
\n