1*b1cdbd2cSJim JagielskiAttribute VB_Name = "SetTextBoxFont" 2*b1cdbd2cSJim Jagielski'************************************************************************* 3*b1cdbd2cSJim Jagielski' 4*b1cdbd2cSJim Jagielski' Licensed to the Apache Software Foundation (ASF) under one 5*b1cdbd2cSJim Jagielski' or more contributor license agreements. See the NOTICE file 6*b1cdbd2cSJim Jagielski' distributed with this work for additional information 7*b1cdbd2cSJim Jagielski' regarding copyright ownership. The ASF licenses this file 8*b1cdbd2cSJim Jagielski' to you under the Apache License, Version 2.0 (the 9*b1cdbd2cSJim Jagielski' "License"); you may not use this file except in compliance 10*b1cdbd2cSJim Jagielski' with the License. You may obtain a copy of the License at 11*b1cdbd2cSJim Jagielski' 12*b1cdbd2cSJim Jagielski' http://www.apache.org/licenses/LICENSE-2.0 13*b1cdbd2cSJim Jagielski' 14*b1cdbd2cSJim Jagielski' Unless required by applicable law or agreed to in writing, 15*b1cdbd2cSJim Jagielski' software distributed under the License is distributed on an 16*b1cdbd2cSJim Jagielski' "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY 17*b1cdbd2cSJim Jagielski' KIND, either express or implied. See the License for the 18*b1cdbd2cSJim Jagielski' specific language governing permissions and limitations 19*b1cdbd2cSJim Jagielski' under the License. 20*b1cdbd2cSJim Jagielski' 21*b1cdbd2cSJim Jagielski'************************************************************************* 22*b1cdbd2cSJim JagielskiOption Explicit 23*b1cdbd2cSJim Jagielski 24*b1cdbd2cSJim Jagielski' We change the font used for text box shapes here for the japanese 25*b1cdbd2cSJim Jagielski' version, because office 2000 sometimes displays squares instead of 26*b1cdbd2cSJim Jagielski' chars 27*b1cdbd2cSJim JagielskiPublic Sub SetTextBoxFont() 28*b1cdbd2cSJim Jagielski Dim aSheet As Worksheet 29*b1cdbd2cSJim Jagielski Dim myShape As Shape 30*b1cdbd2cSJim Jagielski Set aSheet = Sheets(1) 31*b1cdbd2cSJim Jagielski 32*b1cdbd2cSJim Jagielski For Each myShape In aSheet.Shapes 33*b1cdbd2cSJim Jagielski If myShape.Type = msoTextBox Then 34*b1cdbd2cSJim Jagielski myShape.Select 35*b1cdbd2cSJim Jagielski With Selection.Characters.Font 36*b1cdbd2cSJim Jagielski .Name = "MS PGothic" 37*b1cdbd2cSJim Jagielski .Size = 10 38*b1cdbd2cSJim Jagielski End With 39*b1cdbd2cSJim Jagielski End If 40*b1cdbd2cSJim Jagielski Next myShape 41*b1cdbd2cSJim Jagielski Range("A1").Select 42*b1cdbd2cSJim JagielskiEnd Sub 43*b1cdbd2cSJim Jagielski 44