{"id":12662,"date":"2020-04-29T16:02:16","date_gmt":"2020-04-29T07:02:16","guid":{"rendered":"https:\/\/www.ka-net.org\/blog\/?p=12662"},"modified":"2020-04-29T16:11:16","modified_gmt":"2020-04-29T07:11:16","slug":"slack%e3%81%ae%e3%82%ab%e3%82%b9%e3%82%bf%e3%83%a0%e7%b5%b5%e6%96%87%e5%ad%97%e3%82%92%e4%b8%80%e6%8b%ac%e4%bd%9c%e6%88%90%e3%81%99%e3%82%8bvba%e3%83%9e%e3%82%af%e3%83%ad","status":"publish","type":"post","link":"https:\/\/www.ka-net.org\/blog\/?p=12662","title":{"rendered":"Slack\u306e\u30ab\u30b9\u30bf\u30e0\u7d75\u6587\u5b57\u3092\u4e00\u62ec\u4f5c\u6210\u3059\u308bVBA\u30de\u30af\u30ed"},"content":{"rendered":"

\u5728\u5b85\u52e4\u52d9\u3067\u4f7f\u3046\u30d3\u30b8\u30cd\u30b9\u30c1\u30e3\u30c3\u30c8\u30b5\u30fc\u30d3\u30b9\u3068\u3057\u3066\u6ce8\u76ee\u3055\u308c\u3066\u3044\u308b\u300cSlack<\/a>\u300d\u3001\u79c1\u306e\u4f1a\u793e\u3067\u3082\u5c0e\u5165\u3057\u3066\u3044\u307e\u3059\u3002<\/p>\n

Slack\u306b\u306f\u30ab\u30b9\u30bf\u30e0\u7d75\u6587\u5b57<\/a>\u6a5f\u80fd\u304c\u3042\u308a\u3001\u79c1\u306e\u4f1a\u793e\u3067\u3082\u300c\u7d75\u6587\u5b57\u30b8\u30a7\u30cd\u30ec\u30fc\u30bf\u30fc<\/a>\u300d\u3067\u4f5c\u6210\u3057\u305f\u3001<\/p>\n

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

\u3084<\/p>\n

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

\u3068\u3044\u3063\u305f\u7d75\u6587\u5b57\u3092\u4f7f\u7528\u3057\u3066\u3044\u307e\u3059\u3002<\/p>\n

\u7dcf\u52d9\u3068\u3044\u3046\u7acb\u5834\u4e0a\u3001\u793e\u5185Slack\u306e\u7ba1\u7406\u3082\u884c\u3063\u3066\u3044\u308b\u306e\u3067\u3059\u304c\u3001\u5148\u65e5\u3042\u308b\u793e\u54e1\u304b\u3089\u300c\u81ea\u5206\u306e\u540d\u524d\u306e\u7d75\u6587\u5b57\u304c\u6b32\u3057\u3044\u3093\u3060\u3051\u3069\u30fc\u300d<\/i>\u3068\u3001\u76f8\u8ac7\u3092\u53d7\u3051\u307e\u3057\u305f\u3002<\/p>\n

\u306a\u308b\u307b\u3069\u3002
\n\u305f\u3057\u304b\u306b\u300c\u7530\u4e2d\u300d\u3084\u300c\u4f50\u85e4\u300d\u3068\u3044\u3063\u305f\u7d75\u6587\u5b57\u304c\u3042\u308b\u3068\u4fbf\u5229\u304b\u3082\u3057\u308c\u307e\u305b\u3093\u3002<\/p>\n

\u3068\u306f\u3044\u3048\u3001\u7d75\u6587\u5b57\u30b8\u30a7\u30cd\u30ec\u30fc\u30bf\u30fc<\/a>\u3067\u500b\u4eba\u60c5\u5831\u3068\u306a\u308b\u540d\u524d\u3067\u7d75\u6587\u5b57\u3092\u4f5c\u6210\u3059\u308b\u308f\u3051\u306b\u306f\u3044\u304d\u307e\u305b\u3093\u3057\u3001\u305d\u3082\u305d\u3082\u5168\u5f93\u696d\u54e1\u5206\u306e\u7d75\u6587\u5b57\u3092\u4e00\u3064\u305a\u3064\u624b\u4f5c\u696d\u3067\u4f5c\u6210\u3059\u308b\u306e\u3082\u5927\u5909\u3067\u3059\u3002<\/p>\n

\u305d\u3053\u3067\u3001Excel\u306e\u5f93\u696d\u54e1\u30ea\u30b9\u30c8\u3092\u5143\u306b\u3001Slack\u306e\u30ab\u30b9\u30bf\u30e0\u7d75\u6587\u5b57\u3092\u4e00\u62ec\u3067\u4f5c\u6210\u3059\u308b\u30de\u30af\u30ed\u3092\u66f8\u304f\u3053\u3068\u306b\u3057\u307e\u3057\u305f\u3002<\/p>\n

\u51e6\u7406\u5185\u5bb9<\/h4>\n

\u30de\u30af\u30ed\u306e\u5927\u307e\u304b\u306a\u51e6\u7406\u5185\u5bb9\u306f\u4e0b\u8a18\u306e\u901a\u308a\u3067\u3059\u3002<\/p>\n

    \n
  1. \u30ab\u30b9\u30bf\u30e0\u7d75\u6587\u5b57\u306e\u5143\u3068\u306a\u308b\u753b\u50cf(\u30b7\u30a7\u30a4\u30d7)\u3092\u4f5c\u6210<\/li>\n
  2. \u30af\u30ea\u30c3\u30d7\u30dc\u30fc\u30c9\u306b\u30b3\u30d4\u30fc<\/li>\n
  3. \u753b\u50cf\u3068\u3057\u3066\u4fdd\u5b58<\/li>\n<\/ol>\n

    \u30af\u30ea\u30c3\u30d7\u30dc\u30fc\u30c9\u306b\u30b3\u30d4\u30fc\u3055\u308c\u305f\u753b\u50cf\u3092\u30d5\u30a1\u30a4\u30eb\u3068\u3057\u3066\u4fdd\u5b58\u3059\u308b\u969b\u306b\u4f7f\u3046\u306e\u304c\u3001\u524d\u56de\u306e\u8a18\u4e8b(\u4e0b\u8a18)\u3067\u7d39\u4ecb\u3057\u305f\u30c4\u30fc\u30eb(CB2IMG)\u3067\u3059\u3002<\/p>\n

    \u30af\u30ea\u30c3\u30d7\u30dc\u30fc\u30c9\u306b\u3042\u308b\u753b\u50cf\u3092\u30d5\u30a1\u30a4\u30eb\u3068\u3057\u3066\u4fdd\u5b58\u3059\u308bC#\u30b3\u30fc\u30c9<\/a><\/div>
    2020.04.27<\/span>
    \u30af\u30ea\u30c3\u30d7\u30dc\u30fc\u30c9\u306b\u3042\u308b\u753b\u50cf\u3092\u30d5\u30a1\u30a4\u30eb\u3068\u3057\u3066\u4fdd\u5b58\u3059\u308bC#\u30b3\u30fc\u30c9 <\/a><\/div>
    \u3068\u3042\u308b\u76ee\u7684\u3067\u3001\u30af\u30ea\u30c3\u30d7\u30dc\u30fc\u30c9\u306b\u30b3\u30d4\u30fc\u3055\u308c\u305f\u753b\u50cf\u3092\u30d5\u30a1\u30a4\u30eb\u3068\u3057\u3066\u4fdd\u5b58\u3059\u308b\u51e6\u7406\u3092\u66f8\u3044\u3066\u307f\u307e\u3057\u305f\u3002\r\n\r\n\u4e0b\u8a18\u306e\u3088\u3046\u306a\u30c4\u30fc\u30eb\u3082\u898b\u3064\u3051\u307e\u3057\u305f\u304c\u3001\u4efb\u610f\u306e\u30bf\u30a4\u30df\u30f3\u30b0\u3067\u4efb\u610f\u306e\u5834\u6240\u306b\u30d5\u30a1\u30a4\u30eb\u4fdd\u5b58\u3057\u305f\u304b\u3063\u305f\u306e\u3067\u3001\u81ea\u5206\u3067\u66f8\u304f\u3053\u3068\u306b\u3057\u307e\u3057\u305f\u3002\r\n\r\n\r\n\r\n\u4e0b\u8a18\u306e\u901a\u308a\u7c21\u5358\u306a\u30b3\u30fc\u30c9\u3067...<\/div><\/div>
    <\/div><\/div>\n

    VBA\u3067\u3059\u3079\u3066\u306e\u51e6\u7406\u3092\u66f8\u3051\u306a\u3044\u3053\u3068\u306f\u306a\u3044\u306e\u3067\u3059\u304c\u3001\u30b3\u30fc\u30c9\u304c\u8907\u96d1\u306b\u306a\u308b\u4e0a\u306b\u3001\u900f\u904e\u8272\u3084\u753b\u8cea\u306b\u307e\u3067\u3053\u3060\u308f\u308a\u51fa\u3059\u3068\u975e\u5e38\u306b\u9762\u5012\u304f\u3055\u3044\u3053\u3068\u306b\u306a\u308b\u306e\u3067\u3001\u3053\u306e\u90e8\u5206\u306f\u7121\u7406\u305b\u305a\u5916\u306b\u51fa\u3059\u3053\u3068\u306b\u3057\u307e\u3057\u305f\u3002<\/p>\n

    \u201c\u3059\u3079\u3066\u306e\u51e6\u7406\u3092VBA\u3067\u7247\u3065\u3051\u306a\u3044\u201d<\/span>\u3001\u5b9f\u904b\u7528\u4e0a\u3067\u306f\u305d\u3093\u306a\u8996\u70b9\u3082\u5927\u4e8b\u3060\u3068\u601d\u3044\u307e\u3059\u3002<\/p>\n

    \u7d75\u6587\u5b57\u7528\u30b7\u30a7\u30a4\u30d7\u3092\u4f5c\u6210\u3059\u308bVBA\u30b3\u30fc\u30c9<\/h4>\n

    \u307e\u305a\u306f\u6838\u3068\u306a\u308b\u3001\u7d75\u6587\u5b57\u7528\u30b7\u30a7\u30a4\u30d7\u3092\u4f5c\u6210\u3059\u308b\u30b3\u30fc\u30c9\u3067\u3059\u3002
    \n\u67a0\u7dda\u3084\u6587\u5b57\u914d\u7f6e\u7b49\u3044\u308d\u3044\u308d\u3068\u6307\u5b9a\u3057\u3066\u3044\u307e\u3059\u304c\u3001\u30dd\u30a4\u30f3\u30c8\u306f\u30ef\u30fc\u30c9\u30a2\u30fc\u30c8\u306e\u300c\u5909\u5f62\u300d\u306b\u3042\u308b\u300c    \u56db\u89d2<\/a>\u300d\u3067\u3059\u3002
    \n\u3053\u308c\u3092\u6307\u5b9a\u3059\u308b\u3053\u3068\u3067\u3001\u67a0\u3044\u3063\u3071\u3044\u306b\u6587\u5b57\u304c\u5e83\u304c\u308a\u3001\u30ab\u30b9\u30bf\u30e0\u7d75\u6587\u5b57\u306b\u3057\u305f\u3068\u304d\u306b\u898b\u3084\u3059\u304f\u306a\u308a\u307e\u3059\u3002<\/p>\n

    Private Function InsertShape(ByVal sht As Excel.Worksheet, _\r\n                             ByVal shpText As String, _\r\n                             Optional ByVal shpFontName As String = "MS UI Gothic", _\r\n                             Optional ByVal shpForeColor As Long = &H0&, _\r\n                             Optional ByVal shpBackColor As Long = &HFFFFFF) As Excel.Shape\r\n'\u30ab\u30b9\u30bf\u30e0\u7d75\u6587\u5b57\u306e\u5143\u3068\u306a\u308b\u30a4\u30e1\u30fc\u30b8\u4f5c\u6210\r\n'\r\n' sht:\u30a4\u30e1\u30fc\u30b8\u4f5c\u6210\u5148\u306e\u30b7\u30fc\u30c8\r\n' shpText:\u6587\u5b57\u5217\r\n' shpFontName:\u30d5\u30a9\u30f3\u30c8\r\n' shpForeColor:\u6587\u5b57\u8272\r\n' shpBackColor:\u80cc\u666f\u8272\r\n'\r\n\r\n  Dim shp As Excel.Shape\r\n  \r\n  Set shp = sht.Shapes.AddTextbox(msoTextOrientationHorizontal, 0, 0, 0, 0)\r\n  With shp\r\n    .TextEffect.PresetShape = msoTextEffectShapePlainText\r\n    .ScaleHeight 1, msoFalse, msoScaleFromTopLeft\r\n    .ScaleWidth 1, msoFalse, msoScaleFromTopLeft\r\n    .Height = 94.5 '\u51fa\u529b\u5f8c\u306e\u30b5\u30a4\u30ba\u304c\u5927\u4f53 128 x 128\u30d4\u30af\u30bb\u30eb \u3068\u306a\u308b\u3088\u3046\u306b\u8abf\u6574\r\n    .Width = 94.8\r\n    .Line.Visible = msoFalse\r\n    With .Fill\r\n      '.Visible = msoFalse\r\n      .Visible = msoTrue\r\n      .ForeColor.RGB = shpBackColor\r\n      .Transparency = 0\r\n      .Solid\r\n    End With\r\n    With .TextFrame2\r\n      .VerticalAnchor = msoAnchorMiddle\r\n      .HorizontalAnchor = msoAnchorCenter\r\n      .WordArtformat = msoTextEffect1\r\n      With .TextRange\r\n        .ParagraphFormat.Alignment = msoAlignCenter\r\n        .ParagraphFormat.LineRuleWithin = msoFalse\r\n        .ParagraphFormat.SpaceWithin = 10 '\u6bb5\u843d\u306e\u9593\u969410pt\r\n        If Len(shpText) > 2 Then\r\n          .Text = Mid(shpText, 1, 2) & vbNewLine & Mid(shpText, 3) '3\u6587\u5b57\u76ee\u4ee5\u964d\u306f\u6539\u884c\r\n        Else\r\n          .Text = shpText\r\n        End If\r\n      End With\r\n      With .TextRange.Font\r\n        '.Line.Visible = msoFalse\r\n        .Line.Transparency = 1\r\n        .Shadow.Visible = msoFalse\r\n        .Bold = msoTrue\r\n        .Fill.ForeColor.RGB = shpForeColor\r\n        .Name = shpFontName\r\n        .NameAscii = shpFontName\r\n        .NameFarEast = shpFontName\r\n        .NameOther = shpFontName\r\n      End With\r\n    End With\r\n  End With\r\n  Set InsertShape = shp\r\nEnd Function<\/pre>\n
    \u4f7f\u3044\u65b9\u306f\u4e0b\u8a18\u306e\u3088\u3046\u306b\u306a\u308a\u307e\u3059\u3002<\/p>\n
    Public Sub Sample()\r\n  Dim shp As Excel.Shape\r\n  Const cb2img As String = "C:\\wk\\CB2IMG\\CB2IMG.exe" 'CB2IMG\u306e\u30d1\u30b9\r\n  \r\n  '\u5143\u753b\u50cf\u4f5c\u6210\r\n  Set shp = InsertShape(ActiveSheet, _\r\n                        "\u9f4b\u85e4\u82b1\u5b50", _\r\n                        "UD Digi Kyokasho N-B", _\r\n                        &HFFFFFF, _\r\n                        &H57972B)\r\n  '\u30af\u30ea\u30c3\u30d7\u30dc\u30fc\u30c9\u306b\u30b3\u30d4\u30fc\r\n  shp.Copy\r\n  'CB2IMG\u3092\u5b9f\u884c\u3057\u3066\u30af\u30ea\u30c3\u30d7\u30dc\u30fc\u30c9\u306b\u30b3\u30d4\u30fc\u3055\u308c\u305f\u753b\u50cf\u3092\u30d5\u30a1\u30a4\u30eb\u3068\u3057\u3066\u4fdd\u5b58\r\n  Shell """" & cb2img & """ " & """C:\\wk\\CB2IMG\\img\\TEST.png""", vbNormalFocus\r\nEnd Sub<\/pre>\n
    \u300cInsertShape\u300d\u3067\u4f5c\u6210\u3057\u305f\u30b7\u30a7\u30a4\u30d7\u3092\u30af\u30ea\u30c3\u30d7\u30dc\u30fc\u30c9\u306b\u30b3\u30d4\u30fc\u3057\u3001\u305d\u306e\u5f8c\u300cCB2IMG\u300d\u3092\u5b9f\u884c\u3057\u3066\u30d5\u30a1\u30a4\u30eb\u3068\u3057\u3066\u4fdd\u5b58\u3057\u3066\u3044\u307e\u3059\u3002<\/p>\n
    \"\"<\/a><\/p>\n
    Slack\u306e\u30ab\u30b9\u30bf\u30e0\u7d75\u6587\u5b57\u3092\u4e00\u62ec\u4f5c\u6210\u3059\u308bVBA\u30b3\u30fc\u30c9<\/h4>\n
    \u3042\u3068\u306f\u5f93\u696d\u54e1\u30ea\u30b9\u30c8\u3092\u7528\u610f\u3057\u3066\u7e70\u308a\u8fd4\u3057\u5b9f\u884c\u3059\u308b\u3060\u3051\u3067\u3059\u3002
    \n\u30c6\u30b9\u30c8\u306b\u306f\u4e0b\u56f3\u306e\u3088\u3046\u306a\u3001\u300c    \u7591\u4f3c\u500b\u4eba\u60c5\u5831\u30c7\u30fc\u30bf\u751f\u6210\u30b5\u30fc\u30d3\u30b9<\/a>\u300d\u3067\u751f\u6210\u3057\u305f\u30c0\u30df\u30fc\u30c7\u30fc\u30bf\u3092\u4f7f\u3046\u3053\u3068\u306b\u3057\u307e\u3057\u305f\u3002<\/p>\n
    \"\"<\/a><\/p>\n
    Public Sub BatchCreateEmoji()\r\n'Slack\u306e\u30ab\u30b9\u30bf\u30e0\u7d75\u6587\u5b57\u4e00\u62ec\u4f5c\u6210\r\n  Dim sht As Excel.Worksheet\r\n  Dim shp As Excel.Shape\r\n  Dim wsh As Object\r\n  Dim i As Long\r\n  Const cb2img As String = "C:\\wk\\CB2IMG\\CB2IMG.exe" 'CB2IMG\u306e\u30d1\u30b9\r\n  Const savefolder As String = "C:\\wk\\CB2IMG\\img\\" '\u753b\u50cf\u4fdd\u5b58\u5148\r\n  \r\n  Set wsh = CreateObject("Wscript.Shell")\r\n  Set sht = ActiveSheet\r\n  With sht\r\n    For i = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row\r\n      Set shp = InsertShape(sht, .Cells(i, 4).Value, , &H1400E5)\r\n      DoEvents\r\n      shp.Copy\r\n       wsh.Run """" & cb2img & """ " & """" & savefolder & "name-" & .Cells(i, 5).Value & .Cells(i, 6).Value & ".png""", 0, True '\u30b3\u30de\u30f3\u30c9\u5b9f\u884c\uff06\u51e6\u7406\u5f85\u3061\r\n      shp.Delete\r\n    Next\r\n  End With\r\n  MsgBox "\u51e6\u7406\u304c\u7d42\u4e86\u3057\u307e\u3057\u305f\u3002", vbSystemModal + vbInformation\r\nEnd Sub<\/pre>\n
    \u4e0a\u8a18\u30b3\u30fc\u30c9\u3067\u306f\u3001CB2IMG\u306e\u7d42\u4e86\u5f85\u3061\u3092\u884c\u3046\u305f\u3081\u3001WshShell.Run<\/a>\u30e1\u30bd\u30c3\u30c9\u3092\u4f7f\u7528\u3057\u3066\u3044\u307e\u3059\u3002
    \n(\u51e6\u7406\u4e2d\u306b    Sleep<\/a>\u3092\u631f\u3093\u3060\u65b9\u304c\u5b89\u5b9a\u3059\u308b\u304b\u3082\u3057\u308c\u307e\u305b\u3093\u3002)<\/p>\n
    \"\"<\/a><\/p>\n
    \u5b9f\u969b\u306bSlack\u3067\u767b\u9332\u3057\u3066\u4f7f\u3063\u305f\u306e\u304c\u4e0b\u56f3\u3067\u3059\u3002
    \n\u30d5\u30a9\u30f3\u30c8\u3084\u6587\u5b57\u8272\u3092\u8abf\u6574\u3059\u308c\u3070\u3001\u3082\u3063\u3068\u898b\u3084\u3059\u304f\u306a\u308b\u304b\u3082\u3057\u308c\u307e\u305b\u3093\u3002<\/p>\n
    \"\"<\/a><\/p>\n
    \u753b\u50cf\u304c\u7528\u610f\u3067\u304d\u305f\u3089\u5f8c\u306f\u30a2\u30c3\u30d7\u3059\u308b\u3060\u3051\u3067\u3059\u3002
    \n\u300c    Neutral Face Emoji Tools<\/a>\u300d\u3092\u4f7f\u3048\u3070\u3001\u4e00\u62ec\u3067\u767b\u9332\u3067\u304d\u308b\u306e\u3060\u3068\u304b\u3002
    \n(\u3059\u307f\u307e\u305b\u3093\u3002\u79c1\u306f\u4f7f\u3063\u305f\u3053\u3068\u304c\u306a\u3044\u3067\u3059\u30fb\u30fb\u30fb😅)<\/p>\n
    \"\"<\/div>
    Qiita<\/div><\/div>
    \"\"<\/figure>
    Slack\u7d75\u6587\u5b57\u306f\u4e00\u6589\u767b\u9332\u3067\u304d\u308b\u3089\u3057\u3044? GoogleChrome\u62e1\u5f35\u3067\u3002 - Qiita<\/div>
    https:\/\/qiita.com\/YumaInaura\/items\/f12928a2063e02ac24e5<\/div>
    inspired 15,000\u500b\u306e\u30ab\u30b9\u30bf\u30e0\u7d75\u6587\u5b57\u3092\u652f\u3048\u308b\u3001Slack\u7d75\u6587\u5b57\u767b\u9332\u8853 - QiitaNeutral Face Emoji Tools \u306e\u4f7f\u3044\u65b9MAc\u74b0\u5883\u3067\u5b9f\u9a13\u3002\u30a4\u30f3\u30b9\u30c8\u30fc\u30ebNeutral Face Em...<\/div><\/div>
    <\/div><\/div><\/a><\/div><\/div>\n
    \u307e\u305f\u3001\u4eca\u56de\u306fExcel\u3092\u4f7f\u3044\u307e\u3057\u305f\u304c\u3001PowerPoint\u3060\u3068\u30b7\u30a7\u30a4\u30d7\u3092\u76f4\u63a5\u4fdd\u5b58\u3067\u304d\u308bExport\u30e1\u30bd\u30c3\u30c9\u304c\u7528\u610f\u3055\u308c\u3066\u3044\u308b\u306e\u3067\u3001\u5916\u90e8\u30c4\u30fc\u30eb\u3092\u5229\u7528\u3059\u308b\u3053\u3068\u306a\u304f\u51e6\u7406\u3067\u304d\u308b\u304b\u3082\u3057\u308c\u307e\u305b\u3093🤔<\/p>\n
    \"\"<\/div>
    www.relief.jp<\/div><\/div>
    \"\"<\/figure>
    VBA\u3067\u56f3\u3068\u3057\u3066\u4fdd\u5b58\u3059\u308b:\u30d1\u30ef\u30fc\u30dd\u30a4\u30f3\u30c8\u30de\u30af\u30ed\u30fbPowerPoint VBA\u306e\u4f7f\u3044\u65b9\/\u753b\u50cf<\/div>
    https:\/\/www.relief.jp\/docs\/powerpoint-vba-shape-save-as-picture.html<\/div>
    \u56f3\u3068\u3057\u3066\u4fdd\u5b58\u3092\u5b9f\u884c\u3059\u308bPowerPoint VBA\u306e\u30b3\u30fc\u30c9\u306b\u3064\u3044\u3066\u3054\u7d39\u4ecb\u3057\u3066\u3044\u307e\u3059\u3002<\/div><\/div>
    <\/div><\/div><\/a><\/div><\/div>\n
    \n
    \n