2024.11.1<\/p>\n\n\n\n
vbCrLf \u3067\u306f\u306a\u304f\u3001vbLf \u3067\u3046\u307e\u304f\u3044\u3063\u305f\u3002<\/p>\n\n\n\n
Sub \u4e8c\u884c\u76ee\u3092Meiryo_UI\u306b\u3067\u304d\u305f()
Dim shape As shape
Dim textBoxText As String
Dim lines As Variant
Dim secondLineStart As Long
Dim secondLineLength As Longc<\/p>\n\n\n\n
For Each shape In ActiveSheet.Shapes\n If shape.TextFrame2.HasText Then\n textBoxText = shape.TextFrame2.TextRange.Text\n lines = Split(textBoxText, vbLf)\n\n If UBound(lines) >= 1 Then ' 2\u884c\u76ee\u304c\u5b58\u5728\u3059\u308b\u5834\u5408\n secondLineStart = Len(lines(0)) + 2 ' 1\u884c\u76ee\u306e\u9577\u3055 + \u6539\u884c2\u6587\u5b57\n\n If Len(lines(1)) > 0 Then\n secondLineLength = Len(lines(1))\n With shape.TextFrame2.TextRange.Characters(secondLineStart, secondLineLength).Font\n .Name = \"Meiryo UI\"\n .NameFarEast = \"Meiryo UI\"\n .NameComplexScript = \"Meiryo UI\"\n .Size = 13\n End With\n End If\n End If\n End If\nNext shape<\/code><\/pre>\n\n\n\nEnd Sub<\/p>\n\n\n\n
Sub \u30c6\u30ad\u30b9\u30c8\u304c\u5168\u3066\u8868\u793a\u3055\u308c\u3066\u3044\u306a\u3044\u30b7\u30a7\u30a4\u30d7\u306e2\u884c\u76ee\u3092Meiryo_8point()
Dim shape As shape
Dim textFrame As TextFrame2
Dim textRange As TextRange2
Dim textBoxText As String
Dim lines As Variant
Dim secondLineStart As Long
Dim secondLineLength As Long<\/p>\n\n\n\n
For Each shape In ActiveSheet.Shapes\n If shape.TextFrame2.HasText Then\n Set textFrame = shape.TextFrame2\n Set textRange = textFrame.textRange\n\n ' \u30c6\u30ad\u30b9\u30c8\u306e\u9ad8\u3055\u3092\u30c1\u30a7\u30c3\u30af\n If textRange.BoundHeight > shape.Height Then\n Debug.Print \"\u30c6\u30ad\u30b9\u30c8\u304c\u3059\u3079\u3066\u8868\u793a\u3055\u308c\u3066\u3044\u306a\u3044\u30b7\u30a7\u30a4\u30d7: \" & shape.Name\n\n ' \u30c6\u30ad\u30b9\u30c8\u304c\u3059\u3079\u3066\u8868\u793a\u3055\u308c\u3066\u3044\u306a\u3044\u30b7\u30a7\u30a4\u30d7\u306e2\u884c\u76ee\u3092\u66f4\u65b0\n textBoxText = textRange.Text\n lines = Split(textBoxText, vbLf)\n\n If UBound(lines) >= 1 Then ' 2\u884c\u76ee\u304c\u5b58\u5728\u3059\u308b\u5834\u5408\n secondLineStart = Len(lines(0)) + 2 ' 1\u884c\u76ee\u306e\u9577\u3055 + \u6539\u884c2\u6587\u5b57\n\n If Len(lines(1)) > 0 Then\n secondLineLength = Len(lines(1))\n With textRange.Characters(secondLineStart, secondLineLength).Font\n .Name = \"Meiryo UI\"\n .NameFarEast = \"Meiryo UI\"\n .NameComplexScript = \"Meiryo UI\"\n .Size = 8\n End With\n End If\n End If\n End If\n End If\nNext shape<\/code><\/pre>\n\n\n\nEnd Sub<\/p>\n\n\n\n
\u53f3\u30af\u30ea\u30c3\u30af\u3092\u6614\u98a8\u306b reg.exe add “HKCU\\Software\\Classes\\CLSID\\{86ca1aa0-34aa-4e8b-a509-50c905bae2a2}\\InprocServer32” \/f \/ve <\/p>\n\n\n\n
\u53f3\u30af\u30ea\u30c3\u30af\u3092\u6a19\u6e96\u8a2d\u5b9a\u306b\u623b\u3059 reg.exe delete “HKCU\\Software\\Classes\\CLSID\\{86ca1aa0-34aa-4e8b-a509-50c905bae2a2}” \/f<\/p>\n\n\n\n
<\/p>\n","protected":false},"excerpt":{"rendered":"
2024.11.1 vbCrLf \u3067\u306f\u306a\u304f\u3001vbLf \u3067\u3046\u307e\u304f\u3044\u3063\u305f\u3002 Sub \u4e8c\u884c\u76ee\u3092Meiryo_UI\u306b\u3067\u304d\u305f()Dim shape As shapeDim textBoxText As StringDim line … <\/p>\n