{"id":820,"date":"2013-05-15T08:38:28","date_gmt":"2013-05-15T08:38:28","guid":{"rendered":"https:\/\/cowman-chiang.no-ip.org\/wordpress\/?p=820"},"modified":"2019-06-20T10:26:12","modified_gmt":"2019-06-20T02:26:12","slug":"%e7%89%a9%e4%bb%b6%e5%90%8d%e7%a8%b1%e5%8c%85%e5%90%ab%e8%ae%8a%e6%95%b8-%e6%87%89%e7%94%a8%e7%b4%80%e9%8c%84","status":"publish","type":"post","link":"https:\/\/cowmanchiang.me\/wp\/?p=820","title":{"rendered":"\u7269\u4ef6\u540d\u7a31\u5305\u542b\u8b8a\u6578 + \u61c9\u7528\u7d00\u9304"},"content":{"rendered":"<pre lang=\"VB\">\nDim s1, s2 As Integer\nSub OnSlideShowPageChange()\n    s1 = 1\n    s2 = 1\n    With ActivePresentation.Slides(SlideShowWindows(1).View.Slide.SlideIndex)\n        If .Shapes.Title.TextFrame.TextRange.Text = \"Windows \u5b89\u88ddSplunk\" Then\n            allhide\n            selectphoto (s1)\n        ElseIf .Shapes.Title.TextFrame.TextRange.Text = \"Windows \u8a2d\u5b9a Forward\" Then\n            allhide_1\n            selectphoto_1 (s2)\n        End If\n    End With\nEnd Sub\nFunction allhide()\n    With ActivePresentation.Slides(SlideShowWindows(1).View.Slide.SlideIndex)\n        If .Shapes.Title.TextFrame.TextRange.Text = \"Windows \u5b89\u88ddSplunk\" Then\n            For i = 1 To 24 Step 1\n                .Shapes(\"windows_splunk_\" & Format(i, \"00\")).Visible = msoFalse\n                'format\u8a2d\u5b9a2\u4f4d\u6578\uff0c\u4e0d\u8db32\u4f4d\u6578\u88dc0\n            Next i\n        End If\n    End With\nEnd Function\nFunction selectphoto(num As Integer)\n    With ActivePresentation.Slides(SlideShowWindows(1).View.Slide.SlideIndex)\n        If .Shapes.Title.TextFrame.TextRange.Text = \"Windows \u5b89\u88ddSplunk\" Then\n            .Shapes(\"windows_splunk_\" & Format(num, \"00\")).Visible = msoTrue\n            .Shapes(\"windows_splunk_\" & Format(num, \"00\")).ZOrder msoBringToFront\n        End If\n    End With\nEnd Function\nSub photo_back()\n    With ActivePresentation.Slides(SlideShowWindows(1).View.Slide.SlideIndex)\n        If .Shapes.Title.TextFrame.TextRange.Text = \"Windows \u5b89\u88ddSplunk\" Then\n            s1 = s1 - 1\n            If s1 = 0 Then s1 = 24\n            allhide\n            selectphoto (s1)\n        End If\n    End With\nEnd Sub\nSub photo_next()\n    With ActivePresentation.Slides(SlideShowWindows(1).View.Slide.SlideIndex)\n        If .Shapes.Title.TextFrame.TextRange.Text = \"Windows \u5b89\u88ddSplunk\" Then\n            s1 = s1 + 1\n            If s1 = 25 Then s1 = 1\n            allhide\n            selectphoto (s1)\n        End If\n    End With\nEnd Sub\nFunction allhide_1()\n    With ActivePresentation.Slides(SlideShowWindows(1).View.Slide.SlideIndex)\n        If .Shapes.Title.TextFrame.TextRange.Text = \"Windows \u8a2d\u5b9a Forward\" Then\n            For i = 1 To 6 Step 1\n                .Shapes(\"windows_forward_\" & Format(i, \"00\")).Visible = msoFalse\n            Next i\n        End If\n    End With\nEnd Function\nFunction selectphoto_1(num As Integer)\n    With ActivePresentation.Slides(SlideShowWindows(1).View.Slide.SlideIndex)\n        If .Shapes.Title.TextFrame.TextRange.Text = \"Windows \u8a2d\u5b9a Forward\" Then\n            .Shapes(\"windows_forward_\" & Format(num, \"00\")).Visible = msoTrue\n            .Shapes(\"windows_forward_\" & Format(num, \"00\")).ZOrder msoBringToFront\n        End If\n    End With\nEnd Function\nSub photo_back_1()\n    With ActivePresentation.Slides(SlideShowWindows(1).View.Slide.SlideIndex)\n        If .Shapes.Title.TextFrame.TextRange.Text = \"Windows \u8a2d\u5b9a Forward\" Then\n            s2 = s2 - 1\n            If s2 = 0 Then s2 = 6\n            allhide_1\n            selectphoto_1 (s2)\n        End If\n    End With\nEnd Sub\nSub photo_next_1()\n    With ActivePresentation.Slides(SlideShowWindows(1).View.Slide.SlideIndex)\n        If .Shapes.Title.TextFrame.TextRange.Text = \"Windows \u8a2d\u5b9a Forward\" Then\n            s2 = s2 + 1\n            If s2 = 6 Then s2 = 1\n            allhide_1\n            selectphoto_1 (s2)\n        End If\n    End With\nEnd Sub\n<\/pre>\n","protected":false},"excerpt":{"rendered":"<p>Dim s1, s2 As Integer Sub OnSlideShowPageChange() s1 = 1 s2 = 1 With ActivePresentation.Slides(SlideShowWindows(1).View.Slide.SlideIndex) If .Shapes.Title.TextFrame.TextRange.Text = &#8220;Windows \u5b89\u88ddSplunk&#8221; Then allhide selectphoto (s1) ElseIf .Shapes.Title.TextFrame.TextRange.Text = &#8220;Windows \u8a2d\u5b9a Forward&#8221; Then allhide_1 selectphoto_1 (s2) End If End With End Sub &hellip; <a href=\"https:\/\/cowmanchiang.me\/wp\/?p=820\">Continue reading <span class=\"meta-nav\">&rarr;<\/span><\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"closed","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[71],"tags":[],"class_list":["post-820","post","type-post","status-publish","format-standard","hentry","category-powerpoint"],"_links":{"self":[{"href":"https:\/\/cowmanchiang.me\/wp\/index.php?rest_route=\/wp\/v2\/posts\/820","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/cowmanchiang.me\/wp\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/cowmanchiang.me\/wp\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/cowmanchiang.me\/wp\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/cowmanchiang.me\/wp\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=820"}],"version-history":[{"count":1,"href":"https:\/\/cowmanchiang.me\/wp\/index.php?rest_route=\/wp\/v2\/posts\/820\/revisions"}],"predecessor-version":[{"id":2090,"href":"https:\/\/cowmanchiang.me\/wp\/index.php?rest_route=\/wp\/v2\/posts\/820\/revisions\/2090"}],"wp:attachment":[{"href":"https:\/\/cowmanchiang.me\/wp\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=820"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/cowmanchiang.me\/wp\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=820"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/cowmanchiang.me\/wp\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=820"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}